<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><link rel="stylesheet" type="text/css" href="style.css" /><script type="text/javascript" src="highlight.js"></script></head><body><pre><span class="hs-pragma">{-# LINE 1 &quot;libraries\\Win32\\Graphics\\Win32\\GDI\\Types.hsc&quot; #-}</span><span>
</span><span id="line-1"></span><span class="hs-pragma">{-# LANGUAGE Trustworthy #-}</span><span>
</span><span id="line-2"></span><span class="hs-comment">-----------------------------------------------------------------------------</span><span>
</span><span id="line-3"></span><span class="hs-comment">-- |</span><span>
</span><span id="line-4"></span><span class="hs-comment">-- Module      :  Graphics.Win32.GDI.Types</span><span>
</span><span id="line-5"></span><span class="hs-comment">-- Copyright   :  (c) Alastair Reid, 1997-2003</span><span>
</span><span id="line-6"></span><span class="hs-comment">-- License     :  BSD-style (see the file libraries/base/LICENSE)</span><span>
</span><span id="line-7"></span><span class="hs-comment">--</span><span>
</span><span id="line-8"></span><span class="hs-comment">-- Maintainer  :  Esa Ilari Vuokko &lt;ei@vuokko.info&gt;</span><span>
</span><span id="line-9"></span><span class="hs-comment">-- Stability   :  provisional</span><span>
</span><span id="line-10"></span><span class="hs-comment">-- Portability :  portable</span><span>
</span><span id="line-11"></span><span class="hs-comment">--</span><span>
</span><span id="line-12"></span><span class="hs-comment">-- A collection of FFI declarations for interfacing with Win32.</span><span>
</span><span id="line-13"></span><span class="hs-comment">--</span><span>
</span><span id="line-14"></span><span class="hs-comment">-----------------------------------------------------------------------------</span><span>
</span><span id="line-15"></span><span>
</span><span id="line-16"></span><span class="hs-keyword">module</span><span> </span><span class="hs-identifier">Graphics.Win32.GDI.Types</span><span>
</span><span id="line-17"></span><span class="hs-comment">{-  -- still incomplete
        ( POINT,        marshall_point, unmarshall_point
        , ListPOINT,    marshall_ListPOINT_
        , ListLenPOINT, marshall_ListLenPOINT_
        , RECT,         marshall_rect, unmarshall_rect
        , SIZE,         marshall_size, unmarshall_size
        , nullPtr
        , HBITMAP       , MbHBITMAP
        , HFONT         , MbHFONT
        , HCURSOR       , MbHCURSOR
        , HICON         , MbHICON
        , HRGN          , MbHRGN
        , PRGN
        , HPALETTE      , MbHPALETTE
        , HBRUSH        , MbHBRUSH
        , HPEN          , MbHPEN
        , HACCEL        --, MbHACCEL
        , HDC           , MbHDC
        , HDWP          , MbHDWP
        , HWND          , MbHWND
        , HMENU         , MbHMENU
        , PolyFillMode
        , ArcDirection
        , MbArcDirection
        , GraphicsMode
        , MbGraphicsMode
        , BackgroundMode
        , HatchStyle
        , StretchBltMode
        , COLORREF
        , TextAlignment
        , ClippingMode
        , RegionType
        , gDI_ERROR
        )
-}</span><span>
</span><span id="line-53"></span><span>        </span><span class="hs-keyword">where</span><span>
</span><span id="line-54"></span><span>
</span><span id="line-55"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="System.Win32.Types.html"><span class="hs-identifier">System.Win32.Types</span></a></span><span>
</span><span id="line-56"></span><span>
</span><span id="line-57"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../base/src/Control.Monad.html#"><span class="hs-identifier">Control.Monad</span></a></span><span class="hs-special">(</span><span> </span><span class="annot"><a href="../../base/src/Control.Monad.html#zipWithM_"><span class="hs-identifier">zipWithM_</span></a></span><span> </span><span class="hs-special">)</span><span>
</span><span id="line-58"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../base/src/Foreign.html#"><span class="hs-identifier">Foreign</span></a></span><span>
</span><span id="line-59"></span><span>
</span><span id="line-60"></span><span>
</span><span id="line-61"></span><span>
</span><span id="line-62"></span><span class="hs-pragma">{-# CFILES cbits/HsGDI.c #-}</span><span>
</span><span id="line-63"></span><span>
</span><span id="line-64"></span><span class="hs-comment">----------------------------------------------------------------</span><span>
</span><span id="line-65"></span><span class="hs-comment">--</span><span>
</span><span id="line-66"></span><span class="hs-comment">----------------------------------------------------------------</span><span>
</span><span id="line-67"></span><span>
</span><span id="line-68"></span><span class="hs-keyword">type</span><span> </span><span id="POINT"><span class="annot"><a href="Graphics.Win32.GDI.Types.html#POINT"><span class="hs-identifier hs-var">POINT</span></a></span></span><span> </span><span class="hs-glyph">=</span><span>
</span><span id="line-69"></span><span>  </span><span class="hs-special">(</span><span> </span><span class="annot"><a href="System.Win32.Types.html#LONG"><span class="hs-identifier hs-type">LONG</span></a></span><span>  </span><span class="hs-comment">-- x</span><span>
</span><span id="line-70"></span><span>  </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="System.Win32.Types.html#LONG"><span class="hs-identifier hs-type">LONG</span></a></span><span>  </span><span class="hs-comment">-- y</span><span>
</span><span id="line-71"></span><span>  </span><span class="hs-special">)</span><span>
</span><span id="line-72"></span><span>
</span><span id="line-73"></span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#sizeofPOINT"><span class="hs-identifier hs-type">sizeofPOINT</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Int</span></span><span>
</span><span id="line-74"></span><span id="sizeofPOINT"><span class="annot"><span class="annottext">sizeofPOINT :: Int
</span><a href="Graphics.Win32.GDI.Types.html#sizeofPOINT"><span class="hs-identifier hs-var hs-var">sizeofPOINT</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">8</span></span><span class="hs-special">)</span><span>
</span><span id="line-75"></span><span class="hs-pragma">{-# LINE 75 &quot;libraries\\Win32\\Graphics\\Win32\\GDI\\Types.hsc&quot; #-}</span><span>
</span><span id="line-75"></span><span>
</span><span id="line-76"></span><span id="local-6989586621679106228"><span class="annot"><a href="Graphics.Win32.GDI.Types.html#allocaPOINT"><span class="hs-identifier hs-type">allocaPOINT</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../base/src/GHC.Ptr.html#Ptr"><span class="hs-identifier hs-type">Ptr</span></a></span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#POINT"><span class="hs-identifier hs-type">POINT</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">IO</span></span><span> </span><span class="annot"><a href="#local-6989586621679106228"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">IO</span></span><span> </span><span class="annot"><a href="#local-6989586621679106228"><span class="hs-identifier hs-type">a</span></a></span></span><span>
</span><span id="line-77"></span><span id="allocaPOINT"><span class="annot"><span class="annottext">allocaPOINT :: forall a. (Ptr POINT -&gt; IO a) -&gt; IO a
</span><a href="Graphics.Win32.GDI.Types.html#allocaPOINT"><span class="hs-identifier hs-var hs-var">allocaPOINT</span></a></span></span><span> </span><span class="hs-glyph">=</span><span>
</span><span id="line-78"></span><span>  </span><span class="annot"><span class="annottext">Int -&gt; (Ptr POINT -&gt; IO a) -&gt; IO a
forall a b. Int -&gt; (Ptr a -&gt; IO b) -&gt; IO b
</span><a href="../../base/src/Foreign.Marshal.Alloc.html#allocaBytes"><span class="hs-identifier hs-var">allocaBytes</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="Graphics.Win32.GDI.Types.html#sizeofPOINT"><span class="hs-identifier hs-var">sizeofPOINT</span></a></span><span>
</span><span id="line-79"></span><span>
</span><span id="line-80"></span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#peekPOINT"><span class="hs-identifier hs-type">peekPOINT</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/GHC.Ptr.html#Ptr"><span class="hs-identifier hs-type">Ptr</span></a></span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#POINT"><span class="hs-identifier hs-type">POINT</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">IO</span></span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#POINT"><span class="hs-identifier hs-type">POINT</span></a></span><span>
</span><span id="line-81"></span><span id="peekPOINT"><span class="annot"><span class="annottext">peekPOINT :: Ptr POINT -&gt; IO POINT
</span><a href="Graphics.Win32.GDI.Types.html#peekPOINT"><span class="hs-identifier hs-var hs-var">peekPOINT</span></a></span></span><span> </span><span id="local-6989586621679106091"><span class="annot"><span class="annottext">Ptr POINT
</span><a href="#local-6989586621679106091"><span class="hs-identifier hs-var">p</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-82"></span><span>  </span><span id="local-6989586621679106090"><span class="annot"><span class="annottext">RegionType
</span><a href="#local-6989586621679106090"><span class="hs-identifier hs-var">x</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span id="local-6989586621679106089"><span class="annot"><span class="annottext">Ptr POINT
</span><a href="#local-6989586621679106089"><span class="hs-identifier hs-var">hsc_ptr</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Ptr POINT -&gt; Int -&gt; IO RegionType
forall a b. Storable a =&gt; Ptr b -&gt; Int -&gt; IO a
</span><a href="../../base/src/Foreign.Storable.html#peekByteOff"><span class="hs-identifier hs-var">peekByteOff</span></a></span><span> </span><span class="annot"><span class="annottext">Ptr POINT
</span><a href="#local-6989586621679106089"><span class="hs-identifier hs-var">hsc_ptr</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">0</span></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Ptr POINT
</span><a href="#local-6989586621679106091"><span class="hs-identifier hs-var">p</span></a></span><span>
</span><span id="line-83"></span><span class="hs-pragma">{-# LINE 83 &quot;libraries\\Win32\\Graphics\\Win32\\GDI\\Types.hsc&quot; #-}</span><span>
</span><span id="line-83"></span><span>  </span><span class="hs-identifier">y</span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">4</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">p</span><span>
</span><span id="line-84"></span><span class="hs-pragma">{-# LINE 84 &quot;libraries\\Win32\\Graphics\\Win32\\GDI\\Types.hsc&quot; #-}</span><span>
</span><span id="line-84"></span><span>  </span><span class="hs-identifier">return</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">x</span><span class="hs-special">,</span><span class="hs-identifier">y</span><span class="hs-special">)</span><span>
</span><span id="line-85"></span><span>
</span><span id="line-86"></span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#pokePOINT"><span class="hs-identifier hs-type">pokePOINT</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/GHC.Ptr.html#Ptr"><span class="hs-identifier hs-type">Ptr</span></a></span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#POINT"><span class="hs-identifier hs-type">POINT</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#POINT"><span class="hs-identifier hs-type">POINT</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">IO</span></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span>
</span><span id="line-87"></span><span id="pokePOINT"><span class="annot"><span class="annottext">pokePOINT :: Ptr POINT -&gt; POINT -&gt; IO ()
</span><a href="Graphics.Win32.GDI.Types.html#pokePOINT"><span class="hs-identifier hs-var hs-var">pokePOINT</span></a></span></span><span> </span><span id="local-6989586621679106084"><span class="annot"><span class="annottext">Ptr POINT
</span><a href="#local-6989586621679106084"><span class="hs-identifier hs-var">p</span></a></span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679106083"><span class="annot"><span class="annottext">RegionType
</span><a href="#local-6989586621679106083"><span class="hs-identifier hs-var">x</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679106082"><span class="annot"><span class="annottext">RegionType
</span><a href="#local-6989586621679106082"><span class="hs-identifier hs-var">y</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-88"></span><span>  </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span id="local-6989586621679106081"><span class="annot"><span class="annottext">Ptr POINT
</span><a href="#local-6989586621679106081"><span class="hs-identifier hs-var">hsc_ptr</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Ptr POINT -&gt; Int -&gt; RegionType -&gt; IO ()
forall a b. Storable a =&gt; Ptr b -&gt; Int -&gt; a -&gt; IO ()
</span><a href="../../base/src/Foreign.Storable.html#pokeByteOff"><span class="hs-identifier hs-var">pokeByteOff</span></a></span><span> </span><span class="annot"><span class="annottext">Ptr POINT
</span><a href="#local-6989586621679106081"><span class="hs-identifier hs-var">hsc_ptr</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">0</span></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Ptr POINT
</span><a href="#local-6989586621679106084"><span class="hs-identifier hs-var">p</span></a></span><span> </span><span class="annot"><span class="annottext">RegionType
</span><a href="#local-6989586621679106083"><span class="hs-identifier hs-var">x</span></a></span><span>
</span><span id="line-89"></span><span class="hs-pragma">{-# LINE 89 &quot;libraries\\Win32\\Graphics\\Win32\\GDI\\Types.hsc&quot; #-}</span><span>
</span><span id="line-89"></span><span>  </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">pokeByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">4</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">p</span><span> </span><span class="hs-identifier">y</span><span>
</span><span id="line-90"></span><span class="hs-pragma">{-# LINE 90 &quot;libraries\\Win32\\Graphics\\Win32\\GDI\\Types.hsc&quot; #-}</span><span>
</span><span id="line-90"></span><span>
</span><span id="line-91"></span><span id="local-6989586621679106219"><span class="annot"><a href="Graphics.Win32.GDI.Types.html#withPOINT"><span class="hs-identifier hs-type">withPOINT</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#POINT"><span class="hs-identifier hs-type">POINT</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../base/src/GHC.Ptr.html#Ptr"><span class="hs-identifier hs-type">Ptr</span></a></span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#POINT"><span class="hs-identifier hs-type">POINT</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">IO</span></span><span> </span><span class="annot"><a href="#local-6989586621679106219"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">IO</span></span><span> </span><span class="annot"><a href="#local-6989586621679106219"><span class="hs-identifier hs-type">a</span></a></span></span><span>
</span><span id="line-92"></span><span id="withPOINT"><span class="annot"><span class="annottext">withPOINT :: forall a. POINT -&gt; (Ptr POINT -&gt; IO a) -&gt; IO a
</span><a href="Graphics.Win32.GDI.Types.html#withPOINT"><span class="hs-identifier hs-var hs-var">withPOINT</span></a></span></span><span> </span><span id="local-6989586621679106076"><span class="annot"><span class="annottext">POINT
</span><a href="#local-6989586621679106076"><span class="hs-identifier hs-var">p</span></a></span></span><span> </span><span id="local-6989586621679106075"><span class="annot"><span class="annottext">Ptr POINT -&gt; IO a
</span><a href="#local-6989586621679106075"><span class="hs-identifier hs-var">f</span></a></span></span><span> </span><span class="hs-glyph">=</span><span>
</span><span id="line-93"></span><span>  </span><span class="annot"><span class="annottext">(Ptr POINT -&gt; IO a) -&gt; IO a
forall a. (Ptr POINT -&gt; IO a) -&gt; IO a
</span><a href="Graphics.Win32.GDI.Types.html#allocaPOINT"><span class="hs-identifier hs-var">allocaPOINT</span></a></span><span> </span><span class="annot"><span class="annottext">((Ptr POINT -&gt; IO a) -&gt; IO a) -&gt; (Ptr POINT -&gt; IO a) -&gt; IO a
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span> </span><span id="local-6989586621679106074"><span class="annot"><span class="annottext">Ptr POINT
</span><a href="#local-6989586621679106074"><span class="hs-identifier hs-var">ptr</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-94"></span><span>  </span><span class="annot"><span class="annottext">Ptr POINT -&gt; POINT -&gt; IO ()
</span><a href="Graphics.Win32.GDI.Types.html#pokePOINT"><span class="hs-identifier hs-var">pokePOINT</span></a></span><span> </span><span class="annot"><span class="annottext">Ptr POINT
</span><a href="#local-6989586621679106074"><span class="hs-identifier hs-var">ptr</span></a></span><span> </span><span class="annot"><span class="annottext">POINT
</span><a href="#local-6989586621679106076"><span class="hs-identifier hs-var">p</span></a></span><span>
</span><span id="line-95"></span><span>  </span><span class="annot"><span class="annottext">Ptr POINT -&gt; IO a
</span><a href="#local-6989586621679106075"><span class="hs-identifier hs-var">f</span></a></span><span> </span><span class="annot"><span class="annottext">Ptr POINT
</span><a href="#local-6989586621679106074"><span class="hs-identifier hs-var">ptr</span></a></span><span>
</span><span id="line-96"></span><span>
</span><span id="line-97"></span><span class="hs-keyword">type</span><span> </span><span id="RECT"><span class="annot"><a href="Graphics.Win32.GDI.Types.html#RECT"><span class="hs-identifier hs-var">RECT</span></a></span></span><span> </span><span class="hs-glyph">=</span><span>
</span><span id="line-98"></span><span>  </span><span class="hs-special">(</span><span> </span><span class="annot"><a href="System.Win32.Types.html#LONG"><span class="hs-identifier hs-type">LONG</span></a></span><span>  </span><span class="hs-comment">-- left</span><span>
</span><span id="line-99"></span><span>  </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="System.Win32.Types.html#LONG"><span class="hs-identifier hs-type">LONG</span></a></span><span>  </span><span class="hs-comment">-- top</span><span>
</span><span id="line-100"></span><span>  </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="System.Win32.Types.html#LONG"><span class="hs-identifier hs-type">LONG</span></a></span><span>  </span><span class="hs-comment">-- right</span><span>
</span><span id="line-101"></span><span>  </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="System.Win32.Types.html#LONG"><span class="hs-identifier hs-type">LONG</span></a></span><span>  </span><span class="hs-comment">-- bottom</span><span>
</span><span id="line-102"></span><span>  </span><span class="hs-special">)</span><span>
</span><span id="line-103"></span><span>
</span><span id="line-104"></span><span id="local-6989586621679106213"><span class="annot"><a href="Graphics.Win32.GDI.Types.html#allocaRECT"><span class="hs-identifier hs-type">allocaRECT</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../base/src/GHC.Ptr.html#Ptr"><span class="hs-identifier hs-type">Ptr</span></a></span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#RECT"><span class="hs-identifier hs-type">RECT</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">IO</span></span><span> </span><span class="annot"><a href="#local-6989586621679106213"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">IO</span></span><span> </span><span class="annot"><a href="#local-6989586621679106213"><span class="hs-identifier hs-type">a</span></a></span></span><span>
</span><span id="line-105"></span><span id="allocaRECT"><span class="annot"><span class="annottext">allocaRECT :: forall a. (Ptr RECT -&gt; IO a) -&gt; IO a
</span><a href="Graphics.Win32.GDI.Types.html#allocaRECT"><span class="hs-identifier hs-var hs-var">allocaRECT</span></a></span></span><span> </span><span class="hs-glyph">=</span><span>
</span><span id="line-106"></span><span>  </span><span class="annot"><span class="annottext">Int -&gt; (Ptr RECT -&gt; IO a) -&gt; IO a
forall a b. Int -&gt; (Ptr a -&gt; IO b) -&gt; IO b
</span><a href="../../base/src/Foreign.Marshal.Alloc.html#allocaBytes"><span class="hs-identifier hs-var">allocaBytes</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">16</span></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-107"></span><span class="hs-pragma">{-# LINE 107 &quot;libraries\\Win32\\Graphics\\Win32\\GDI\\Types.hsc&quot; #-}</span><span>
</span><span id="line-107"></span><span>
</span><span id="line-108"></span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#peekRECT"><span class="hs-identifier hs-type">peekRECT</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/GHC.Ptr.html#Ptr"><span class="hs-identifier hs-type">Ptr</span></a></span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#RECT"><span class="hs-identifier hs-type">RECT</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">IO</span></span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#RECT"><span class="hs-identifier hs-type">RECT</span></a></span><span>
</span><span id="line-109"></span><span id="peekRECT"><span class="annot"><span class="annottext">peekRECT :: Ptr RECT -&gt; IO RECT
</span><a href="Graphics.Win32.GDI.Types.html#peekRECT"><span class="hs-identifier hs-var hs-var">peekRECT</span></a></span></span><span> </span><span id="local-6989586621679106071"><span class="annot"><span class="annottext">Ptr RECT
</span><a href="#local-6989586621679106071"><span class="hs-identifier hs-var">p</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-110"></span><span>  </span><span id="local-6989586621679106070"><span class="annot"><span class="annottext">RegionType
</span><a href="#local-6989586621679106070"><span class="hs-identifier hs-var">left</span></a></span></span><span>   </span><span class="hs-glyph">&lt;-</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span id="local-6989586621679106069"><span class="annot"><span class="annottext">Ptr RECT
</span><a href="#local-6989586621679106069"><span class="hs-identifier hs-var">hsc_ptr</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Ptr RECT -&gt; Int -&gt; IO RegionType
forall a b. Storable a =&gt; Ptr b -&gt; Int -&gt; IO a
</span><a href="../../base/src/Foreign.Storable.html#peekByteOff"><span class="hs-identifier hs-var">peekByteOff</span></a></span><span> </span><span class="annot"><span class="annottext">Ptr RECT
</span><a href="#local-6989586621679106069"><span class="hs-identifier hs-var">hsc_ptr</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">0</span></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Ptr RECT
</span><a href="#local-6989586621679106071"><span class="hs-identifier hs-var">p</span></a></span><span>
</span><span id="line-111"></span><span class="hs-pragma">{-# LINE 111 &quot;libraries\\Win32\\Graphics\\Win32\\GDI\\Types.hsc&quot; #-}</span><span>
</span><span id="line-111"></span><span>  </span><span class="hs-identifier">top</span><span>    </span><span class="hs-glyph">&lt;-</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">4</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">p</span><span>
</span><span id="line-112"></span><span class="hs-pragma">{-# LINE 112 &quot;libraries\\Win32\\Graphics\\Win32\\GDI\\Types.hsc&quot; #-}</span><span>
</span><span id="line-112"></span><span>  </span><span class="hs-identifier">right</span><span>  </span><span class="hs-glyph">&lt;-</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">8</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">p</span><span>
</span><span id="line-113"></span><span class="hs-pragma">{-# LINE 113 &quot;libraries\\Win32\\Graphics\\Win32\\GDI\\Types.hsc&quot; #-}</span><span>
</span><span id="line-113"></span><span>  </span><span class="hs-identifier">bottom</span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">12</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">p</span><span>
</span><span id="line-114"></span><span class="hs-pragma">{-# LINE 114 &quot;libraries\\Win32\\Graphics\\Win32\\GDI\\Types.hsc&quot; #-}</span><span>
</span><span id="line-114"></span><span>  </span><span class="hs-identifier">return</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">left</span><span class="hs-special">,</span><span> </span><span class="hs-identifier">top</span><span class="hs-special">,</span><span> </span><span class="hs-identifier">right</span><span class="hs-special">,</span><span> </span><span class="hs-identifier">bottom</span><span class="hs-special">)</span><span>
</span><span id="line-115"></span><span>
</span><span id="line-116"></span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#pokeRECT"><span class="hs-identifier hs-type">pokeRECT</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/GHC.Ptr.html#Ptr"><span class="hs-identifier hs-type">Ptr</span></a></span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#RECT"><span class="hs-identifier hs-type">RECT</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#RECT"><span class="hs-identifier hs-type">RECT</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">IO</span></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span>
</span><span id="line-117"></span><span id="pokeRECT"><span class="annot"><span class="annottext">pokeRECT :: Ptr RECT -&gt; RECT -&gt; IO ()
</span><a href="Graphics.Win32.GDI.Types.html#pokeRECT"><span class="hs-identifier hs-var hs-var">pokeRECT</span></a></span></span><span> </span><span id="local-6989586621679106061"><span class="annot"><span class="annottext">Ptr RECT
</span><a href="#local-6989586621679106061"><span class="hs-identifier hs-var">p</span></a></span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679106060"><span class="annot"><span class="annottext">RegionType
</span><a href="#local-6989586621679106060"><span class="hs-identifier hs-var">left</span></a></span></span><span class="hs-special">,</span><span> </span><span id="local-6989586621679106059"><span class="annot"><span class="annottext">RegionType
</span><a href="#local-6989586621679106059"><span class="hs-identifier hs-var">top</span></a></span></span><span class="hs-special">,</span><span> </span><span id="local-6989586621679106058"><span class="annot"><span class="annottext">RegionType
</span><a href="#local-6989586621679106058"><span class="hs-identifier hs-var">right</span></a></span></span><span class="hs-special">,</span><span> </span><span id="local-6989586621679106057"><span class="annot"><span class="annottext">RegionType
</span><a href="#local-6989586621679106057"><span class="hs-identifier hs-var">bottom</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-118"></span><span>  </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span id="local-6989586621679106056"><span class="annot"><span class="annottext">Ptr RECT
</span><a href="#local-6989586621679106056"><span class="hs-identifier hs-var">hsc_ptr</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Ptr RECT -&gt; Int -&gt; RegionType -&gt; IO ()
forall a b. Storable a =&gt; Ptr b -&gt; Int -&gt; a -&gt; IO ()
</span><a href="../../base/src/Foreign.Storable.html#pokeByteOff"><span class="hs-identifier hs-var">pokeByteOff</span></a></span><span> </span><span class="annot"><span class="annottext">Ptr RECT
</span><a href="#local-6989586621679106056"><span class="hs-identifier hs-var">hsc_ptr</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">0</span></span><span class="hs-special">)</span><span>   </span><span class="annot"><span class="annottext">Ptr RECT
</span><a href="#local-6989586621679106061"><span class="hs-identifier hs-var">p</span></a></span><span> </span><span class="annot"><span class="annottext">RegionType
</span><a href="#local-6989586621679106060"><span class="hs-identifier hs-var">left</span></a></span><span>
</span><span id="line-119"></span><span class="hs-pragma">{-# LINE 119 &quot;libraries\\Win32\\Graphics\\Win32\\GDI\\Types.hsc&quot; #-}</span><span>
</span><span id="line-119"></span><span>  </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">pokeByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">4</span><span class="hs-special">)</span><span>    </span><span class="hs-identifier">p</span><span> </span><span class="hs-identifier">top</span><span>
</span><span id="line-120"></span><span class="hs-pragma">{-# LINE 120 &quot;libraries\\Win32\\Graphics\\Win32\\GDI\\Types.hsc&quot; #-}</span><span>
</span><span id="line-120"></span><span>  </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">pokeByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">8</span><span class="hs-special">)</span><span>  </span><span class="hs-identifier">p</span><span> </span><span class="hs-identifier">right</span><span>
</span><span id="line-121"></span><span class="hs-pragma">{-# LINE 121 &quot;libraries\\Win32\\Graphics\\Win32\\GDI\\Types.hsc&quot; #-}</span><span>
</span><span id="line-121"></span><span>  </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">pokeByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">12</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">p</span><span> </span><span class="hs-identifier">bottom</span><span>
</span><span id="line-122"></span><span class="hs-pragma">{-# LINE 122 &quot;libraries\\Win32\\Graphics\\Win32\\GDI\\Types.hsc&quot; #-}</span><span>
</span><span id="line-122"></span><span>
</span><span id="line-123"></span><span class="hs-keyword">type</span><span> </span><span id="SIZE"><span class="annot"><a href="Graphics.Win32.GDI.Types.html#SIZE"><span class="hs-identifier hs-var">SIZE</span></a></span></span><span> </span><span class="hs-glyph">=</span><span>
</span><span id="line-124"></span><span>  </span><span class="hs-special">(</span><span> </span><span class="annot"><a href="System.Win32.Types.html#LONG"><span class="hs-identifier hs-type">LONG</span></a></span><span>  </span><span class="hs-comment">-- cx</span><span>
</span><span id="line-125"></span><span>  </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="System.Win32.Types.html#LONG"><span class="hs-identifier hs-type">LONG</span></a></span><span>  </span><span class="hs-comment">-- cy</span><span>
</span><span id="line-126"></span><span>  </span><span class="hs-special">)</span><span>
</span><span id="line-127"></span><span>
</span><span id="line-128"></span><span id="local-6989586621679106051"><span class="annot"><a href="Graphics.Win32.GDI.Types.html#allocaSIZE"><span class="hs-identifier hs-type">allocaSIZE</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../base/src/GHC.Ptr.html#Ptr"><span class="hs-identifier hs-type">Ptr</span></a></span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#SIZE"><span class="hs-identifier hs-type">SIZE</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">IO</span></span><span> </span><span class="annot"><a href="#local-6989586621679106051"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">IO</span></span><span> </span><span class="annot"><a href="#local-6989586621679106051"><span class="hs-identifier hs-type">a</span></a></span></span><span>
</span><span id="line-129"></span><span id="allocaSIZE"><span class="annot"><span class="annottext">allocaSIZE :: forall a. (Ptr POINT -&gt; IO a) -&gt; IO a
</span><a href="Graphics.Win32.GDI.Types.html#allocaSIZE"><span class="hs-identifier hs-var hs-var">allocaSIZE</span></a></span></span><span> </span><span class="hs-glyph">=</span><span>
</span><span id="line-130"></span><span>  </span><span class="annot"><span class="annottext">Int -&gt; (Ptr POINT -&gt; IO a) -&gt; IO a
forall a b. Int -&gt; (Ptr a -&gt; IO b) -&gt; IO b
</span><a href="../../base/src/Foreign.Marshal.Alloc.html#allocaBytes"><span class="hs-identifier hs-var">allocaBytes</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">8</span></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-131"></span><span class="hs-pragma">{-# LINE 131 &quot;libraries\\Win32\\Graphics\\Win32\\GDI\\Types.hsc&quot; #-}</span><span>
</span><span id="line-131"></span><span>
</span><span id="line-132"></span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#peekSIZE"><span class="hs-identifier hs-type">peekSIZE</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/GHC.Ptr.html#Ptr"><span class="hs-identifier hs-type">Ptr</span></a></span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#SIZE"><span class="hs-identifier hs-type">SIZE</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">IO</span></span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#SIZE"><span class="hs-identifier hs-type">SIZE</span></a></span><span>
</span><span id="line-133"></span><span id="peekSIZE"><span class="annot"><span class="annottext">peekSIZE :: Ptr POINT -&gt; IO POINT
</span><a href="Graphics.Win32.GDI.Types.html#peekSIZE"><span class="hs-identifier hs-var hs-var">peekSIZE</span></a></span></span><span> </span><span id="local-6989586621679106048"><span class="annot"><span class="annottext">Ptr POINT
</span><a href="#local-6989586621679106048"><span class="hs-identifier hs-var">p</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-134"></span><span>  </span><span id="local-6989586621679106047"><span class="annot"><span class="annottext">RegionType
</span><a href="#local-6989586621679106047"><span class="hs-identifier hs-var">cx</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span id="local-6989586621679106046"><span class="annot"><span class="annottext">Ptr POINT
</span><a href="#local-6989586621679106046"><span class="hs-identifier hs-var">hsc_ptr</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Ptr POINT -&gt; Int -&gt; IO RegionType
forall a b. Storable a =&gt; Ptr b -&gt; Int -&gt; IO a
</span><a href="../../base/src/Foreign.Storable.html#peekByteOff"><span class="hs-identifier hs-var">peekByteOff</span></a></span><span> </span><span class="annot"><span class="annottext">Ptr POINT
</span><a href="#local-6989586621679106046"><span class="hs-identifier hs-var">hsc_ptr</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">0</span></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Ptr POINT
</span><a href="#local-6989586621679106048"><span class="hs-identifier hs-var">p</span></a></span><span>
</span><span id="line-135"></span><span class="hs-pragma">{-# LINE 135 &quot;libraries\\Win32\\Graphics\\Win32\\GDI\\Types.hsc&quot; #-}</span><span>
</span><span id="line-135"></span><span>  </span><span class="hs-identifier">cy</span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">peekByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">4</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">p</span><span>
</span><span id="line-136"></span><span class="hs-pragma">{-# LINE 136 &quot;libraries\\Win32\\Graphics\\Win32\\GDI\\Types.hsc&quot; #-}</span><span>
</span><span id="line-136"></span><span>  </span><span class="hs-identifier">return</span><span> </span><span class="hs-special">(</span><span class="hs-identifier">cx</span><span class="hs-special">,</span><span class="hs-identifier">cy</span><span class="hs-special">)</span><span>
</span><span id="line-137"></span><span>
</span><span id="line-138"></span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#pokeSIZE"><span class="hs-identifier hs-type">pokeSIZE</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/GHC.Ptr.html#Ptr"><span class="hs-identifier hs-type">Ptr</span></a></span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#SIZE"><span class="hs-identifier hs-type">SIZE</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#SIZE"><span class="hs-identifier hs-type">SIZE</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">IO</span></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span>
</span><span id="line-139"></span><span id="pokeSIZE"><span class="annot"><span class="annottext">pokeSIZE :: Ptr POINT -&gt; POINT -&gt; IO ()
</span><a href="Graphics.Win32.GDI.Types.html#pokeSIZE"><span class="hs-identifier hs-var hs-var">pokeSIZE</span></a></span></span><span> </span><span id="local-6989586621679106042"><span class="annot"><span class="annottext">Ptr POINT
</span><a href="#local-6989586621679106042"><span class="hs-identifier hs-var">p</span></a></span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679106041"><span class="annot"><span class="annottext">RegionType
</span><a href="#local-6989586621679106041"><span class="hs-identifier hs-var">cx</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679106040"><span class="annot"><span class="annottext">RegionType
</span><a href="#local-6989586621679106040"><span class="hs-identifier hs-var">cy</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-140"></span><span>  </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span id="local-6989586621679106039"><span class="annot"><span class="annottext">Ptr POINT
</span><a href="#local-6989586621679106039"><span class="hs-identifier hs-var">hsc_ptr</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Ptr POINT -&gt; Int -&gt; RegionType -&gt; IO ()
forall a b. Storable a =&gt; Ptr b -&gt; Int -&gt; a -&gt; IO ()
</span><a href="../../base/src/Foreign.Storable.html#pokeByteOff"><span class="hs-identifier hs-var">pokeByteOff</span></a></span><span> </span><span class="annot"><span class="annottext">Ptr POINT
</span><a href="#local-6989586621679106039"><span class="hs-identifier hs-var">hsc_ptr</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">0</span></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Ptr POINT
</span><a href="#local-6989586621679106042"><span class="hs-identifier hs-var">p</span></a></span><span> </span><span class="annot"><span class="annottext">RegionType
</span><a href="#local-6989586621679106041"><span class="hs-identifier hs-var">cx</span></a></span><span>
</span><span id="line-141"></span><span class="hs-pragma">{-# LINE 141 &quot;libraries\\Win32\\Graphics\\Win32\\GDI\\Types.hsc&quot; #-}</span><span>
</span><span id="line-141"></span><span>  </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">pokeByteOff</span><span> </span><span class="hs-identifier">hsc_ptr</span><span> </span><span class="hs-number">4</span><span class="hs-special">)</span><span> </span><span class="hs-identifier">p</span><span> </span><span class="hs-identifier">cy</span><span>
</span><span id="line-142"></span><span class="hs-pragma">{-# LINE 142 &quot;libraries\\Win32\\Graphics\\Win32\\GDI\\Types.hsc&quot; #-}</span><span>
</span><span id="line-142"></span><span>
</span><span id="line-143"></span><span class="hs-comment">----------------------------------------------------------------</span><span>
</span><span id="line-144"></span><span>
</span><span id="line-145"></span><span id="local-6989586621679106210"><span class="annot"><a href="Graphics.Win32.GDI.Types.html#withPOINTArray"><span class="hs-identifier hs-type">withPOINTArray</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">[</span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#POINT"><span class="hs-identifier hs-type">POINT</span></a></span><span class="hs-special">]</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../base/src/GHC.Ptr.html#Ptr"><span class="hs-identifier hs-type">Ptr</span></a></span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#POINT"><span class="hs-identifier hs-type">POINT</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Int</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">IO</span></span><span> </span><span class="annot"><a href="#local-6989586621679106210"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">IO</span></span><span> </span><span class="annot"><a href="#local-6989586621679106210"><span class="hs-identifier hs-type">a</span></a></span></span><span>
</span><span id="line-146"></span><span id="withPOINTArray"><span class="annot"><span class="annottext">withPOINTArray :: forall a. [POINT] -&gt; (Ptr POINT -&gt; Int -&gt; IO a) -&gt; IO a
</span><a href="Graphics.Win32.GDI.Types.html#withPOINTArray"><span class="hs-identifier hs-var hs-var">withPOINTArray</span></a></span></span><span> </span><span id="local-6989586621679106034"><span class="annot"><span class="annottext">[POINT]
</span><a href="#local-6989586621679106034"><span class="hs-identifier hs-var">xs</span></a></span></span><span> </span><span id="local-6989586621679106033"><span class="annot"><span class="annottext">Ptr POINT -&gt; Int -&gt; IO a
</span><a href="#local-6989586621679106033"><span class="hs-identifier hs-var">f</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Int -&gt; (Ptr POINT -&gt; IO a) -&gt; IO a
forall a b. Int -&gt; (Ptr a -&gt; IO b) -&gt; IO b
</span><a href="../../base/src/Foreign.Marshal.Alloc.html#allocaBytes"><span class="hs-identifier hs-var">allocaBytes</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int
</span><a href="Graphics.Win32.GDI.Types.html#sizeofPOINT"><span class="hs-identifier hs-var">sizeofPOINT</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Int
forall a. Num a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Num.html#%2A"><span class="hs-operator hs-var">*</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679106031"><span class="hs-identifier hs-var">len</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">((Ptr POINT -&gt; IO a) -&gt; IO a) -&gt; (Ptr POINT -&gt; IO a) -&gt; IO a
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span> </span><span id="local-6989586621679106030"><span class="annot"><span class="annottext">Ptr POINT
</span><a href="#local-6989586621679106030"><span class="hs-identifier hs-var">ptr</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-147"></span><span>  </span><span class="annot"><span class="annottext">Ptr POINT -&gt; [POINT] -&gt; IO ()
</span><a href="Graphics.Win32.GDI.Types.html#pokePOINTArray"><span class="hs-identifier hs-var">pokePOINTArray</span></a></span><span> </span><span class="annot"><span class="annottext">Ptr POINT
</span><a href="#local-6989586621679106030"><span class="hs-identifier hs-var">ptr</span></a></span><span> </span><span class="annot"><span class="annottext">[POINT]
</span><a href="#local-6989586621679106034"><span class="hs-identifier hs-var">xs</span></a></span><span>
</span><span id="line-148"></span><span>  </span><span class="annot"><span class="annottext">Ptr POINT -&gt; Int -&gt; IO a
</span><a href="#local-6989586621679106033"><span class="hs-identifier hs-var">f</span></a></span><span> </span><span class="annot"><span class="annottext">Ptr POINT
</span><a href="#local-6989586621679106030"><span class="hs-identifier hs-var">ptr</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679106031"><span class="hs-identifier hs-var">len</span></a></span><span>
</span><span id="line-149"></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-150"></span><span>  </span><span id="local-6989586621679106031"><span class="annot"><span class="annottext">len :: Int
</span><a href="#local-6989586621679106031"><span class="hs-identifier hs-var hs-var">len</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[POINT] -&gt; Int
forall (t :: * -&gt; *) a. Foldable t =&gt; t a -&gt; Int
</span><a href="../../base/src/Data.Foldable.html#length"><span class="hs-identifier hs-var">length</span></a></span><span> </span><span class="annot"><span class="annottext">[POINT]
</span><a href="#local-6989586621679106034"><span class="hs-identifier hs-var">xs</span></a></span><span>
</span><span id="line-151"></span><span>
</span><span id="line-152"></span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#pokePOINTArray"><span class="hs-identifier hs-type">pokePOINTArray</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/GHC.Ptr.html#Ptr"><span class="hs-identifier hs-type">Ptr</span></a></span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#POINT"><span class="hs-identifier hs-type">POINT</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">[</span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#POINT"><span class="hs-identifier hs-type">POINT</span></a></span><span class="hs-special">]</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">IO</span></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span>
</span><span id="line-153"></span><span id="pokePOINTArray"><span class="annot"><span class="annottext">pokePOINTArray :: Ptr POINT -&gt; [POINT] -&gt; IO ()
</span><a href="Graphics.Win32.GDI.Types.html#pokePOINTArray"><span class="hs-identifier hs-var hs-var">pokePOINTArray</span></a></span></span><span> </span><span id="local-6989586621679106025"><span class="annot"><span class="annottext">Ptr POINT
</span><a href="#local-6989586621679106025"><span class="hs-identifier hs-var">ptr</span></a></span></span><span> </span><span id="local-6989586621679106024"><span class="annot"><span class="annottext">[POINT]
</span><a href="#local-6989586621679106024"><span class="hs-identifier hs-var">xs</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(Int -&gt; POINT -&gt; IO ()) -&gt; [Int] -&gt; [POINT] -&gt; IO ()
forall (m :: * -&gt; *) a b c.
Applicative m =&gt;
(a -&gt; b -&gt; m c) -&gt; [a] -&gt; [b] -&gt; m ()
</span><a href="../../base/src/Control.Monad.html#zipWithM_"><span class="hs-identifier hs-var">zipWithM_</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Ptr POINT -&gt; Int -&gt; POINT -&gt; IO ()
</span><a href="Graphics.Win32.GDI.Types.html#setPOINT"><span class="hs-identifier hs-var">setPOINT</span></a></span><span> </span><span class="annot"><span class="annottext">Ptr POINT
</span><a href="#local-6989586621679106025"><span class="hs-identifier hs-var">ptr</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">0</span></span><span class="hs-glyph">..</span><span class="hs-special">]</span><span> </span><span class="annot"><span class="annottext">[POINT]
</span><a href="#local-6989586621679106024"><span class="hs-identifier hs-var">xs</span></a></span><span>
</span><span id="line-154"></span><span>
</span><span id="line-155"></span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#setPOINT"><span class="hs-identifier hs-type">setPOINT</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/GHC.Ptr.html#Ptr"><span class="hs-identifier hs-type">Ptr</span></a></span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#POINT"><span class="hs-identifier hs-type">POINT</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Int</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#POINT"><span class="hs-identifier hs-type">POINT</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">IO</span></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span>
</span><span id="line-156"></span><span id="setPOINT"><span class="annot"><span class="annottext">setPOINT :: Ptr POINT -&gt; Int -&gt; POINT -&gt; IO ()
</span><a href="Graphics.Win32.GDI.Types.html#setPOINT"><span class="hs-identifier hs-var hs-var">setPOINT</span></a></span></span><span> </span><span id="local-6989586621679106022"><span class="annot"><span class="annottext">Ptr POINT
</span><a href="#local-6989586621679106022"><span class="hs-identifier hs-var">ptr</span></a></span></span><span> </span><span id="local-6989586621679106021"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679106021"><span class="hs-identifier hs-var">off</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Ptr POINT -&gt; POINT -&gt; IO ()
</span><a href="Graphics.Win32.GDI.Types.html#pokePOINT"><span class="hs-identifier hs-var">pokePOINT</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Ptr POINT
</span><a href="#local-6989586621679106022"><span class="hs-identifier hs-var">ptr</span></a></span><span> </span><span class="annot"><span class="annottext">Ptr POINT -&gt; Int -&gt; Ptr POINT
forall a b. Ptr a -&gt; Int -&gt; Ptr b
</span><a href="../../base/src/GHC.Ptr.html#plusPtr"><span class="hs-operator hs-var">`plusPtr`</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679106021"><span class="hs-identifier hs-var">off</span></a></span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Int
forall a. Num a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Num.html#%2A"><span class="hs-operator hs-var">*</span></a></span><span class="annot"><span class="annottext">Int
</span><a href="Graphics.Win32.GDI.Types.html#sizeofPOINT"><span class="hs-identifier hs-var">sizeofPOINT</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-157"></span><span>
</span><span id="line-158"></span><span class="hs-keyword">type</span><span>   </span><span id="LPRECT"><span class="annot"><a href="Graphics.Win32.GDI.Types.html#LPRECT"><span class="hs-identifier hs-var">LPRECT</span></a></span></span><span>   </span><span class="hs-glyph">=</span><span> </span><span class="annot"><a href="../../base/src/GHC.Ptr.html#Ptr"><span class="hs-identifier hs-type">Ptr</span></a></span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#RECT"><span class="hs-identifier hs-type">RECT</span></a></span><span>
</span><span id="line-159"></span><span class="hs-keyword">type</span><span> </span><span id="MbLPRECT"><span class="annot"><a href="Graphics.Win32.GDI.Types.html#MbLPRECT"><span class="hs-identifier hs-var">MbLPRECT</span></a></span></span><span>   </span><span class="hs-glyph">=</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#LPRECT"><span class="hs-identifier hs-type">LPRECT</span></a></span><span>
</span><span id="line-160"></span><span>
</span><span id="line-161"></span><span id="local-6989586621679106199"><span class="annot"><a href="Graphics.Win32.GDI.Types.html#withRECT"><span class="hs-identifier hs-type">withRECT</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#RECT"><span class="hs-identifier hs-type">RECT</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../base/src/GHC.Ptr.html#Ptr"><span class="hs-identifier hs-type">Ptr</span></a></span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#RECT"><span class="hs-identifier hs-type">RECT</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">IO</span></span><span> </span><span class="annot"><a href="#local-6989586621679106199"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">IO</span></span><span> </span><span class="annot"><a href="#local-6989586621679106199"><span class="hs-identifier hs-type">a</span></a></span></span><span>
</span><span id="line-162"></span><span id="withRECT"><span class="annot"><span class="annottext">withRECT :: forall a. RECT -&gt; (Ptr RECT -&gt; IO a) -&gt; IO a
</span><a href="Graphics.Win32.GDI.Types.html#withRECT"><span class="hs-identifier hs-var hs-var">withRECT</span></a></span></span><span> </span><span id="local-6989586621679106015"><span class="annot"><span class="annottext">RECT
</span><a href="#local-6989586621679106015"><span class="hs-identifier hs-var">r</span></a></span></span><span> </span><span id="local-6989586621679106014"><span class="annot"><span class="annottext">Ptr RECT -&gt; IO a
</span><a href="#local-6989586621679106014"><span class="hs-identifier hs-var">f</span></a></span></span><span> </span><span class="hs-glyph">=</span><span>
</span><span id="line-163"></span><span>  </span><span class="annot"><span class="annottext">(Ptr RECT -&gt; IO a) -&gt; IO a
forall a. (Ptr RECT -&gt; IO a) -&gt; IO a
</span><a href="Graphics.Win32.GDI.Types.html#allocaRECT"><span class="hs-identifier hs-var">allocaRECT</span></a></span><span> </span><span class="annot"><span class="annottext">((Ptr RECT -&gt; IO a) -&gt; IO a) -&gt; (Ptr RECT -&gt; IO a) -&gt; IO a
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span> </span><span id="local-6989586621679106013"><span class="annot"><span class="annottext">Ptr RECT
</span><a href="#local-6989586621679106013"><span class="hs-identifier hs-var">ptr</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-164"></span><span>  </span><span class="annot"><span class="annottext">Ptr RECT -&gt; RECT -&gt; IO ()
</span><a href="Graphics.Win32.GDI.Types.html#pokeRECT"><span class="hs-identifier hs-var">pokeRECT</span></a></span><span> </span><span class="annot"><span class="annottext">Ptr RECT
</span><a href="#local-6989586621679106013"><span class="hs-identifier hs-var">ptr</span></a></span><span> </span><span class="annot"><span class="annottext">RECT
</span><a href="#local-6989586621679106015"><span class="hs-identifier hs-var">r</span></a></span><span>
</span><span id="line-165"></span><span>  </span><span class="annot"><span class="annottext">Ptr RECT -&gt; IO a
</span><a href="#local-6989586621679106014"><span class="hs-identifier hs-var">f</span></a></span><span> </span><span class="annot"><span class="annottext">Ptr RECT
</span><a href="#local-6989586621679106013"><span class="hs-identifier hs-var">ptr</span></a></span><span>
</span><span id="line-166"></span><span>
</span><span id="line-167"></span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#getRECT"><span class="hs-identifier hs-type">getRECT</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#LPRECT"><span class="hs-identifier hs-type">LPRECT</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">IO</span></span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#RECT"><span class="hs-identifier hs-type">RECT</span></a></span><span>
</span><span id="line-168"></span><span id="getRECT"><span class="annot"><span class="annottext">getRECT :: Ptr RECT -&gt; IO RECT
</span><a href="Graphics.Win32.GDI.Types.html#getRECT"><span class="hs-identifier hs-var hs-var">getRECT</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Ptr RECT -&gt; IO RECT
</span><a href="Graphics.Win32.GDI.Types.html#peekRECT"><span class="hs-identifier hs-var">peekRECT</span></a></span><span>
</span><span id="line-169"></span><span>
</span><span id="line-170"></span><span class="hs-comment">----------------------------------------------------------------</span><span>
</span><span id="line-171"></span><span class="hs-comment">-- (GDI related) Handles</span><span>
</span><span id="line-172"></span><span class="hs-comment">----------------------------------------------------------------</span><span>
</span><span id="line-173"></span><span>
</span><span id="line-174"></span><span class="hs-keyword">type</span><span>   </span><span id="HBITMAP"><span class="annot"><a href="Graphics.Win32.GDI.Types.html#HBITMAP"><span class="hs-identifier hs-var">HBITMAP</span></a></span></span><span>    </span><span class="hs-glyph">=</span><span> </span><span class="annot"><a href="System.Win32.Types.html#HANDLE"><span class="hs-identifier hs-type">HANDLE</span></a></span><span>
</span><span id="line-175"></span><span class="hs-keyword">type</span><span> </span><span id="MbHBITMAP"><span class="annot"><a href="Graphics.Win32.GDI.Types.html#MbHBITMAP"><span class="hs-identifier hs-var">MbHBITMAP</span></a></span></span><span>    </span><span class="hs-glyph">=</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#HBITMAP"><span class="hs-identifier hs-type">HBITMAP</span></a></span><span>
</span><span id="line-176"></span><span>
</span><span id="line-177"></span><span class="hs-keyword">type</span><span>   </span><span id="HFONT"><span class="annot"><a href="Graphics.Win32.GDI.Types.html#HFONT"><span class="hs-identifier hs-var">HFONT</span></a></span></span><span>      </span><span class="hs-glyph">=</span><span> </span><span class="annot"><a href="System.Win32.Types.html#HANDLE"><span class="hs-identifier hs-type">HANDLE</span></a></span><span>
</span><span id="line-178"></span><span class="hs-keyword">type</span><span> </span><span id="MbHFONT"><span class="annot"><a href="Graphics.Win32.GDI.Types.html#MbHFONT"><span class="hs-identifier hs-var">MbHFONT</span></a></span></span><span>      </span><span class="hs-glyph">=</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#HFONT"><span class="hs-identifier hs-type">HFONT</span></a></span><span>
</span><span id="line-179"></span><span>
</span><span id="line-180"></span><span class="hs-keyword">type</span><span>   </span><span id="HCURSOR"><span class="annot"><a href="Graphics.Win32.GDI.Types.html#HCURSOR"><span class="hs-identifier hs-var">HCURSOR</span></a></span></span><span>    </span><span class="hs-glyph">=</span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#HICON"><span class="hs-identifier hs-type">HICON</span></a></span><span>
</span><span id="line-181"></span><span class="hs-keyword">type</span><span> </span><span id="MbHCURSOR"><span class="annot"><a href="Graphics.Win32.GDI.Types.html#MbHCURSOR"><span class="hs-identifier hs-var">MbHCURSOR</span></a></span></span><span>    </span><span class="hs-glyph">=</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#HCURSOR"><span class="hs-identifier hs-type">HCURSOR</span></a></span><span>
</span><span id="line-182"></span><span>
</span><span id="line-183"></span><span class="hs-keyword">type</span><span>   </span><span id="HICON"><span class="annot"><a href="Graphics.Win32.GDI.Types.html#HICON"><span class="hs-identifier hs-var">HICON</span></a></span></span><span>      </span><span class="hs-glyph">=</span><span> </span><span class="annot"><a href="System.Win32.Types.html#HANDLE"><span class="hs-identifier hs-type">HANDLE</span></a></span><span>
</span><span id="line-184"></span><span class="hs-keyword">type</span><span> </span><span id="MbHICON"><span class="annot"><a href="Graphics.Win32.GDI.Types.html#MbHICON"><span class="hs-identifier hs-var">MbHICON</span></a></span></span><span>      </span><span class="hs-glyph">=</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#HICON"><span class="hs-identifier hs-type">HICON</span></a></span><span>
</span><span id="line-185"></span><span>
</span><span id="line-186"></span><span>
</span><span id="line-187"></span><span class="hs-comment">-- This is not the only handle / resource that should be</span><span>
</span><span id="line-188"></span><span class="hs-comment">-- finalised for you, but it's a start.</span><span>
</span><span id="line-189"></span><span class="hs-comment">-- ToDo.</span><span>
</span><span id="line-190"></span><span>
</span><span id="line-191"></span><span class="hs-keyword">type</span><span>   </span><span id="HRGN"><span class="annot"><a href="Graphics.Win32.GDI.Types.html#HRGN"><span class="hs-identifier hs-var">HRGN</span></a></span></span><span>       </span><span class="hs-glyph">=</span><span> </span><span class="annot"><a href="System.Win32.Types.html#ForeignHANDLE"><span class="hs-identifier hs-type">ForeignHANDLE</span></a></span><span>
</span><span id="line-192"></span><span class="hs-keyword">type</span><span>   </span><span id="PRGN"><span class="annot"><a href="Graphics.Win32.GDI.Types.html#PRGN"><span class="hs-identifier hs-var">PRGN</span></a></span></span><span>       </span><span class="hs-glyph">=</span><span> </span><span class="annot"><a href="System.Win32.Types.html#HANDLE"><span class="hs-identifier hs-type">HANDLE</span></a></span><span>
</span><span id="line-193"></span><span>
</span><span id="line-194"></span><span class="hs-keyword">type</span><span> </span><span id="MbHRGN"><span class="annot"><a href="Graphics.Win32.GDI.Types.html#MbHRGN"><span class="hs-identifier hs-var">MbHRGN</span></a></span></span><span>       </span><span class="hs-glyph">=</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#HRGN"><span class="hs-identifier hs-type">HRGN</span></a></span><span>
</span><span id="line-195"></span><span>
</span><span id="line-196"></span><span class="hs-keyword">type</span><span>   </span><span id="HPALETTE"><span class="annot"><a href="Graphics.Win32.GDI.Types.html#HPALETTE"><span class="hs-identifier hs-var">HPALETTE</span></a></span></span><span>   </span><span class="hs-glyph">=</span><span> </span><span class="annot"><a href="System.Win32.Types.html#HANDLE"><span class="hs-identifier hs-type">HANDLE</span></a></span><span>
</span><span id="line-197"></span><span class="hs-keyword">type</span><span> </span><span id="MbHPALETTE"><span class="annot"><a href="Graphics.Win32.GDI.Types.html#MbHPALETTE"><span class="hs-identifier hs-var">MbHPALETTE</span></a></span></span><span>   </span><span class="hs-glyph">=</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#HPALETTE"><span class="hs-identifier hs-type">HPALETTE</span></a></span><span>
</span><span id="line-198"></span><span>
</span><span id="line-199"></span><span class="hs-keyword">type</span><span>   </span><span id="HBRUSH"><span class="annot"><a href="Graphics.Win32.GDI.Types.html#HBRUSH"><span class="hs-identifier hs-var">HBRUSH</span></a></span></span><span>     </span><span class="hs-glyph">=</span><span> </span><span class="annot"><a href="System.Win32.Types.html#HANDLE"><span class="hs-identifier hs-type">HANDLE</span></a></span><span>
</span><span id="line-200"></span><span class="hs-keyword">type</span><span> </span><span id="MbHBRUSH"><span class="annot"><a href="Graphics.Win32.GDI.Types.html#MbHBRUSH"><span class="hs-identifier hs-var">MbHBRUSH</span></a></span></span><span>     </span><span class="hs-glyph">=</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#HBRUSH"><span class="hs-identifier hs-type">HBRUSH</span></a></span><span>
</span><span id="line-201"></span><span>
</span><span id="line-202"></span><span class="hs-keyword">type</span><span>   </span><span id="HPEN"><span class="annot"><a href="Graphics.Win32.GDI.Types.html#HPEN"><span class="hs-identifier hs-var">HPEN</span></a></span></span><span>       </span><span class="hs-glyph">=</span><span> </span><span class="annot"><a href="System.Win32.Types.html#HANDLE"><span class="hs-identifier hs-type">HANDLE</span></a></span><span>
</span><span id="line-203"></span><span class="hs-keyword">type</span><span> </span><span id="MbHPEN"><span class="annot"><a href="Graphics.Win32.GDI.Types.html#MbHPEN"><span class="hs-identifier hs-var">MbHPEN</span></a></span></span><span>       </span><span class="hs-glyph">=</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#HPEN"><span class="hs-identifier hs-type">HPEN</span></a></span><span>
</span><span id="line-204"></span><span>
</span><span id="line-205"></span><span class="hs-keyword">type</span><span>   </span><span id="HACCEL"><span class="annot"><a href="Graphics.Win32.GDI.Types.html#HACCEL"><span class="hs-identifier hs-var">HACCEL</span></a></span></span><span>     </span><span class="hs-glyph">=</span><span> </span><span class="annot"><a href="System.Win32.Types.html#HANDLE"><span class="hs-identifier hs-type">HANDLE</span></a></span><span>
</span><span id="line-206"></span><span>
</span><span id="line-207"></span><span class="hs-keyword">type</span><span>   </span><span id="HDC"><span class="annot"><a href="Graphics.Win32.GDI.Types.html#HDC"><span class="hs-identifier hs-var">HDC</span></a></span></span><span>        </span><span class="hs-glyph">=</span><span> </span><span class="annot"><a href="System.Win32.Types.html#HANDLE"><span class="hs-identifier hs-type">HANDLE</span></a></span><span>
</span><span id="line-208"></span><span class="hs-keyword">type</span><span> </span><span id="MbHDC"><span class="annot"><a href="Graphics.Win32.GDI.Types.html#MbHDC"><span class="hs-identifier hs-var">MbHDC</span></a></span></span><span>        </span><span class="hs-glyph">=</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#HDC"><span class="hs-identifier hs-type">HDC</span></a></span><span>
</span><span id="line-209"></span><span>
</span><span id="line-210"></span><span class="hs-keyword">type</span><span>   </span><span id="HDWP"><span class="annot"><a href="Graphics.Win32.GDI.Types.html#HDWP"><span class="hs-identifier hs-var">HDWP</span></a></span></span><span>       </span><span class="hs-glyph">=</span><span> </span><span class="annot"><a href="System.Win32.Types.html#HANDLE"><span class="hs-identifier hs-type">HANDLE</span></a></span><span>
</span><span id="line-211"></span><span class="hs-keyword">type</span><span> </span><span id="MbHDWP"><span class="annot"><a href="Graphics.Win32.GDI.Types.html#MbHDWP"><span class="hs-identifier hs-var">MbHDWP</span></a></span></span><span>       </span><span class="hs-glyph">=</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#HDWP"><span class="hs-identifier hs-type">HDWP</span></a></span><span>
</span><span id="line-212"></span><span>
</span><span id="line-213"></span><span class="hs-keyword">type</span><span>   </span><span id="HWND"><span class="annot"><a href="Graphics.Win32.GDI.Types.html#HWND"><span class="hs-identifier hs-var">HWND</span></a></span></span><span>       </span><span class="hs-glyph">=</span><span> </span><span class="annot"><a href="System.Win32.Types.html#HANDLE"><span class="hs-identifier hs-type">HANDLE</span></a></span><span>
</span><span id="line-214"></span><span class="hs-keyword">type</span><span> </span><span id="MbHWND"><span class="annot"><a href="Graphics.Win32.GDI.Types.html#MbHWND"><span class="hs-identifier hs-var">MbHWND</span></a></span></span><span>       </span><span class="hs-glyph">=</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#HWND"><span class="hs-identifier hs-type">HWND</span></a></span><span>
</span><span id="line-215"></span><span>
</span><span id="line-216"></span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#hWND_BOTTOM"><span class="hs-identifier hs-type">hWND_BOTTOM</span></a></span><span>     </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#HWND"><span class="hs-identifier hs-type">HWND</span></a></span><span>
</span><span id="line-217"></span><span id="hWND_BOTTOM"><span class="annot"><span class="annottext">hWND_BOTTOM :: HWND
</span><a href="Graphics.Win32.GDI.Types.html#hWND_BOTTOM"><span class="hs-identifier hs-var hs-var">hWND_BOTTOM</span></a></span></span><span>     </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">UINT_PTR -&gt; HWND
forall a. UINT_PTR -&gt; Ptr a
</span><a href="System.Win32.Types.html#castUINTPtrToPtr"><span class="hs-identifier hs-var">castUINTPtrToPtr</span></a></span><span> </span><span class="annot"><span class="annottext">UINT_PTR
</span><span class="hs-number">1</span></span><span>
</span><span id="line-218"></span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#hWND_NOTOPMOST"><span class="hs-identifier hs-type">hWND_NOTOPMOST</span></a></span><span>  </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#HWND"><span class="hs-identifier hs-type">HWND</span></a></span><span>
</span><span id="line-219"></span><span id="hWND_NOTOPMOST"><span class="annot"><span class="annottext">hWND_NOTOPMOST :: HWND
</span><a href="Graphics.Win32.GDI.Types.html#hWND_NOTOPMOST"><span class="hs-identifier hs-var hs-var">hWND_NOTOPMOST</span></a></span></span><span>  </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">UINT_PTR -&gt; HWND
forall a. UINT_PTR -&gt; Ptr a
</span><a href="System.Win32.Types.html#castUINTPtrToPtr"><span class="hs-identifier hs-var">castUINTPtrToPtr</span></a></span><span> </span><span class="annot"><span class="annottext">UINT_PTR
</span><span class="hs-number">18446744073709551614</span></span><span>
</span><span id="line-220"></span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#hWND_TOP"><span class="hs-identifier hs-type">hWND_TOP</span></a></span><span>        </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#HWND"><span class="hs-identifier hs-type">HWND</span></a></span><span>
</span><span id="line-221"></span><span id="hWND_TOP"><span class="annot"><span class="annottext">hWND_TOP :: HWND
</span><a href="Graphics.Win32.GDI.Types.html#hWND_TOP"><span class="hs-identifier hs-var hs-var">hWND_TOP</span></a></span></span><span>        </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">UINT_PTR -&gt; HWND
forall a. UINT_PTR -&gt; Ptr a
</span><a href="System.Win32.Types.html#castUINTPtrToPtr"><span class="hs-identifier hs-var">castUINTPtrToPtr</span></a></span><span> </span><span class="annot"><span class="annottext">UINT_PTR
</span><span class="hs-number">0</span></span><span>
</span><span id="line-222"></span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#hWND_TOPMOST"><span class="hs-identifier hs-type">hWND_TOPMOST</span></a></span><span>    </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#HWND"><span class="hs-identifier hs-type">HWND</span></a></span><span>
</span><span id="line-223"></span><span id="hWND_TOPMOST"><span class="annot"><span class="annottext">hWND_TOPMOST :: HWND
</span><a href="Graphics.Win32.GDI.Types.html#hWND_TOPMOST"><span class="hs-identifier hs-var hs-var">hWND_TOPMOST</span></a></span></span><span>    </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">UINT_PTR -&gt; HWND
forall a. UINT_PTR -&gt; Ptr a
</span><a href="System.Win32.Types.html#castUINTPtrToPtr"><span class="hs-identifier hs-var">castUINTPtrToPtr</span></a></span><span> </span><span class="annot"><span class="annottext">UINT_PTR
</span><span class="hs-number">18446744073709551615</span></span><span>
</span><span id="line-224"></span><span>
</span><span id="line-225"></span><span class="hs-pragma">{-# LINE 222 &quot;libraries\\Win32\\Graphics\\Win32\\GDI\\Types.hsc&quot; #-}</span><span>
</span><span id="line-222"></span><span>
</span><span id="line-223"></span><span class="hs-keyword">type</span><span>   </span><span class="hs-identifier">HMENU</span><span>      </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier">HANDLE</span><span>
</span><span id="line-224"></span><span class="hs-keyword">type</span><span> </span><span class="hs-identifier">MbHMENU</span><span>      </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier">Maybe</span><span> </span><span class="hs-identifier">HMENU</span><span>
</span><span id="line-225"></span><span>
</span><span id="line-226"></span><span class="hs-comment">----------------------------------------------------------------</span><span>
</span><span id="line-227"></span><span class="hs-comment">-- COLORREF</span><span>
</span><span id="line-228"></span><span class="hs-comment">----------------------------------------------------------------</span><span>
</span><span id="line-229"></span><span>
</span><span id="line-230"></span><span class="hs-keyword">type</span><span> </span><span id="COLORREF"><span class="annot"><a href="Graphics.Win32.GDI.Types.html#COLORREF"><span class="hs-identifier hs-var">COLORREF</span></a></span></span><span>   </span><span class="hs-glyph">=</span><span> </span><span class="annot"><a href="../../base/src/GHC.Word.html#Word32"><span class="hs-identifier hs-type">Word32</span></a></span><span>
</span><span id="line-231"></span><span class="hs-pragma">{-# LINE 231 &quot;libraries\\Win32\\Graphics\\Win32\\GDI\\Types.hsc&quot; #-}</span><span>
</span><span id="line-231"></span><span>
</span><span id="line-232"></span><span class="hs-keyword">foreign</span><span> </span><span class="hs-keyword">import</span><span> </span><span class="annot"><span class="hs-keyword">ccall</span></span><span> </span><span class="annot"><span class="hs-keyword">unsafe</span></span><span> </span><span class="annot"><span class="hs-string">&quot;HsGDI.h&quot;</span></span><span>
</span><span id="line-233"></span><span>  </span><span id="rgb"><span class="annot"><a href="Graphics.Win32.GDI.Types.html#rgb"><span class="hs-identifier hs-var">rgb</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="System.Win32.Types.html#BYTE"><span class="hs-identifier hs-type">BYTE</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="System.Win32.Types.html#BYTE"><span class="hs-identifier hs-type">BYTE</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="System.Win32.Types.html#BYTE"><span class="hs-identifier hs-type">BYTE</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#COLORREF"><span class="hs-identifier hs-type">COLORREF</span></a></span><span>
</span><span id="line-234"></span><span>
</span><span id="line-235"></span><span class="hs-keyword">foreign</span><span> </span><span class="hs-keyword">import</span><span> </span><span class="annot"><span class="hs-keyword">ccall</span></span><span> </span><span class="annot"><span class="hs-keyword">unsafe</span></span><span> </span><span class="annot"><span class="hs-string">&quot;HsGDI.h&quot;</span></span><span>
</span><span id="line-236"></span><span>  </span><span id="getRValue"><span class="annot"><a href="Graphics.Win32.GDI.Types.html#getRValue"><span class="hs-identifier hs-var">getRValue</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#COLORREF"><span class="hs-identifier hs-type">COLORREF</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="System.Win32.Types.html#BYTE"><span class="hs-identifier hs-type">BYTE</span></a></span><span>
</span><span id="line-237"></span><span>
</span><span id="line-238"></span><span class="hs-keyword">foreign</span><span> </span><span class="hs-keyword">import</span><span> </span><span class="annot"><span class="hs-keyword">ccall</span></span><span> </span><span class="annot"><span class="hs-keyword">unsafe</span></span><span> </span><span class="annot"><span class="hs-string">&quot;HsGDI.h&quot;</span></span><span>
</span><span id="line-239"></span><span>  </span><span id="getGValue"><span class="annot"><a href="Graphics.Win32.GDI.Types.html#getGValue"><span class="hs-identifier hs-var">getGValue</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#COLORREF"><span class="hs-identifier hs-type">COLORREF</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="System.Win32.Types.html#BYTE"><span class="hs-identifier hs-type">BYTE</span></a></span><span>
</span><span id="line-240"></span><span>
</span><span id="line-241"></span><span class="hs-keyword">foreign</span><span> </span><span class="hs-keyword">import</span><span> </span><span class="annot"><span class="hs-keyword">ccall</span></span><span> </span><span class="annot"><span class="hs-keyword">unsafe</span></span><span> </span><span class="annot"><span class="hs-string">&quot;HsGDI.h&quot;</span></span><span>
</span><span id="line-242"></span><span>  </span><span id="getBValue"><span class="annot"><a href="Graphics.Win32.GDI.Types.html#getBValue"><span class="hs-identifier hs-var">getBValue</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#COLORREF"><span class="hs-identifier hs-type">COLORREF</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="System.Win32.Types.html#BYTE"><span class="hs-identifier hs-type">BYTE</span></a></span><span>
</span><span id="line-243"></span><span>
</span><span id="line-244"></span><span class="hs-keyword">foreign</span><span> </span><span class="hs-keyword">import</span><span> </span><span class="annot"><span class="hs-keyword">ccall</span></span><span> </span><span class="annot"><span class="hs-keyword">unsafe</span></span><span> </span><span class="annot"><span class="hs-string">&quot;HsGDI.h&quot;</span></span><span>
</span><span id="line-245"></span><span>  </span><span id="pALETTERGB"><span class="annot"><a href="Graphics.Win32.GDI.Types.html#pALETTERGB"><span class="hs-identifier hs-var">pALETTERGB</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="System.Win32.Types.html#BYTE"><span class="hs-identifier hs-type">BYTE</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="System.Win32.Types.html#BYTE"><span class="hs-identifier hs-type">BYTE</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="System.Win32.Types.html#BYTE"><span class="hs-identifier hs-type">BYTE</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#COLORREF"><span class="hs-identifier hs-type">COLORREF</span></a></span><span>
</span><span id="line-246"></span><span>
</span><span id="line-247"></span><span class="hs-keyword">foreign</span><span> </span><span class="hs-keyword">import</span><span> </span><span class="annot"><span class="hs-keyword">ccall</span></span><span> </span><span class="annot"><span class="hs-keyword">unsafe</span></span><span> </span><span class="annot"><span class="hs-string">&quot;HsGDI.h&quot;</span></span><span>
</span><span id="line-248"></span><span>  </span><span id="pALETTEINDEX"><span class="annot"><a href="Graphics.Win32.GDI.Types.html#pALETTEINDEX"><span class="hs-identifier hs-var">pALETTEINDEX</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="System.Win32.Types.html#WORD"><span class="hs-identifier hs-type">WORD</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#COLORREF"><span class="hs-identifier hs-type">COLORREF</span></a></span><span>
</span><span id="line-249"></span><span>
</span><span id="line-250"></span><span class="hs-comment">----------------------------------------------------------------</span><span>
</span><span id="line-251"></span><span class="hs-comment">-- RasterOp macro</span><span>
</span><span id="line-252"></span><span class="hs-comment">----------------------------------------------------------------</span><span>
</span><span id="line-253"></span><span>
</span><span id="line-254"></span><span class="hs-keyword">type</span><span> </span><span id="RasterOp3"><span class="annot"><a href="Graphics.Win32.GDI.Types.html#RasterOp3"><span class="hs-identifier hs-var">RasterOp3</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><a href="../../base/src/GHC.Word.html#Word32"><span class="hs-identifier hs-type">Word32</span></a></span><span>
</span><span id="line-255"></span><span class="hs-keyword">type</span><span> </span><span id="RasterOp4"><span class="annot"><a href="Graphics.Win32.GDI.Types.html#RasterOp4"><span class="hs-identifier hs-var">RasterOp4</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><a href="../../base/src/GHC.Word.html#Word32"><span class="hs-identifier hs-type">Word32</span></a></span><span>
</span><span id="line-256"></span><span>
</span><span id="line-257"></span><span class="hs-keyword">foreign</span><span> </span><span class="hs-keyword">import</span><span> </span><span class="annot"><span class="hs-keyword">ccall</span></span><span> </span><span class="annot"><span class="hs-keyword">unsafe</span></span><span> </span><span class="annot"><span class="hs-string">&quot;HsGDI.h&quot;</span></span><span>
</span><span id="line-258"></span><span>  </span><span id="mAKEROP4"><span class="annot"><a href="Graphics.Win32.GDI.Types.html#mAKEROP4"><span class="hs-identifier hs-var">mAKEROP4</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#RasterOp3"><span class="hs-identifier hs-type">RasterOp3</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#RasterOp3"><span class="hs-identifier hs-type">RasterOp3</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#RasterOp4"><span class="hs-identifier hs-type">RasterOp4</span></a></span><span>
</span><span id="line-259"></span><span>
</span><span id="line-260"></span><span class="hs-comment">----------------------------------------------------------------</span><span>
</span><span id="line-261"></span><span class="hs-comment">-- Miscellaneous enumerations</span><span>
</span><span id="line-262"></span><span class="hs-comment">----------------------------------------------------------------</span><span>
</span><span id="line-263"></span><span>
</span><span id="line-264"></span><span class="hs-keyword">type</span><span> </span><span id="PolyFillMode"><span class="annot"><a href="Graphics.Win32.GDI.Types.html#PolyFillMode"><span class="hs-identifier hs-var">PolyFillMode</span></a></span></span><span>   </span><span class="hs-glyph">=</span><span> </span><span class="annot"><a href="System.Win32.Types.html#INT"><span class="hs-identifier hs-type">INT</span></a></span><span>
</span><span id="line-265"></span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#aLTERNATE"><span class="hs-identifier hs-type">aLTERNATE</span></a></span><span>         </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#PolyFillMode"><span class="hs-identifier hs-type">PolyFillMode</span></a></span><span>
</span><span id="line-266"></span><span id="aLTERNATE"><span class="annot"><span class="annottext">aLTERNATE :: RegionType
</span><a href="Graphics.Win32.GDI.Types.html#aLTERNATE"><span class="hs-identifier hs-var hs-var">aLTERNATE</span></a></span></span><span>         </span><span class="hs-glyph">=</span><span>  </span><span class="annot"><span class="annottext">RegionType
</span><span class="hs-number">1</span></span><span>
</span><span id="line-267"></span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#wINDING"><span class="hs-identifier hs-type">wINDING</span></a></span><span>           </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#PolyFillMode"><span class="hs-identifier hs-type">PolyFillMode</span></a></span><span>
</span><span id="line-268"></span><span id="wINDING"><span class="annot"><span class="annottext">wINDING :: RegionType
</span><a href="Graphics.Win32.GDI.Types.html#wINDING"><span class="hs-identifier hs-var hs-var">wINDING</span></a></span></span><span>           </span><span class="hs-glyph">=</span><span>  </span><span class="annot"><span class="annottext">RegionType
</span><span class="hs-number">2</span></span><span>
</span><span id="line-269"></span><span>
</span><span id="line-270"></span><span class="hs-pragma">{-# LINE 269 &quot;libraries\\Win32\\Graphics\\Win32\\GDI\\Types.hsc&quot; #-}</span><span>
</span><span id="line-269"></span><span>
</span><span id="line-270"></span><span class="hs-comment">----------------------------------------------------------------</span><span>
</span><span id="line-271"></span><span>
</span><span id="line-272"></span><span class="hs-keyword">type</span><span> </span><span id="ArcDirection"><span class="annot"><a href="Graphics.Win32.GDI.Types.html#ArcDirection"><span class="hs-identifier hs-var">ArcDirection</span></a></span></span><span>   </span><span class="hs-glyph">=</span><span> </span><span class="annot"><a href="System.Win32.Types.html#INT"><span class="hs-identifier hs-type">INT</span></a></span><span>
</span><span id="line-273"></span><span class="hs-keyword">type</span><span> </span><span id="MbArcDirection"><span class="annot"><a href="Graphics.Win32.GDI.Types.html#MbArcDirection"><span class="hs-identifier hs-var">MbArcDirection</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#ArcDirection"><span class="hs-identifier hs-type">ArcDirection</span></a></span><span>
</span><span id="line-274"></span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#aD_COUNTERCLOCKWISE"><span class="hs-identifier hs-type">aD_COUNTERCLOCKWISE</span></a></span><span>  </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#ArcDirection"><span class="hs-identifier hs-type">ArcDirection</span></a></span><span>
</span><span id="line-275"></span><span id="aD_COUNTERCLOCKWISE"><span class="annot"><span class="annottext">aD_COUNTERCLOCKWISE :: RegionType
</span><a href="Graphics.Win32.GDI.Types.html#aD_COUNTERCLOCKWISE"><span class="hs-identifier hs-var hs-var">aD_COUNTERCLOCKWISE</span></a></span></span><span>  </span><span class="hs-glyph">=</span><span>  </span><span class="annot"><span class="annottext">RegionType
</span><span class="hs-number">1</span></span><span>
</span><span id="line-276"></span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#aD_CLOCKWISE"><span class="hs-identifier hs-type">aD_CLOCKWISE</span></a></span><span>         </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#ArcDirection"><span class="hs-identifier hs-type">ArcDirection</span></a></span><span>
</span><span id="line-277"></span><span id="aD_CLOCKWISE"><span class="annot"><span class="annottext">aD_CLOCKWISE :: RegionType
</span><a href="Graphics.Win32.GDI.Types.html#aD_CLOCKWISE"><span class="hs-identifier hs-var hs-var">aD_CLOCKWISE</span></a></span></span><span>         </span><span class="hs-glyph">=</span><span>  </span><span class="annot"><span class="annottext">RegionType
</span><span class="hs-number">2</span></span><span>
</span><span id="line-278"></span><span>
</span><span id="line-279"></span><span class="hs-pragma">{-# LINE 278 &quot;libraries\\Win32\\Graphics\\Win32\\GDI\\Types.hsc&quot; #-}</span><span>
</span><span id="line-278"></span><span>
</span><span id="line-279"></span><span class="hs-comment">----------------------------------------------------------------</span><span>
</span><span id="line-280"></span><span>
</span><span id="line-281"></span><span class="hs-keyword">type</span><span> </span><span id="GraphicsMode"><span class="annot"><a href="Graphics.Win32.GDI.Types.html#GraphicsMode"><span class="hs-identifier hs-var">GraphicsMode</span></a></span></span><span>   </span><span class="hs-glyph">=</span><span> </span><span class="annot"><a href="System.Win32.Types.html#DWORD"><span class="hs-identifier hs-type">DWORD</span></a></span><span>
</span><span id="line-282"></span><span class="hs-keyword">type</span><span> </span><span id="MbGraphicsMode"><span class="annot"><a href="Graphics.Win32.GDI.Types.html#MbGraphicsMode"><span class="hs-identifier hs-var">MbGraphicsMode</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#GraphicsMode"><span class="hs-identifier hs-type">GraphicsMode</span></a></span><span>
</span><span id="line-283"></span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#gM_COMPATIBLE"><span class="hs-identifier hs-type">gM_COMPATIBLE</span></a></span><span>     </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#GraphicsMode"><span class="hs-identifier hs-type">GraphicsMode</span></a></span><span>
</span><span id="line-284"></span><span id="gM_COMPATIBLE"><span class="annot"><span class="annottext">gM_COMPATIBLE :: UINT
</span><a href="Graphics.Win32.GDI.Types.html#gM_COMPATIBLE"><span class="hs-identifier hs-var hs-var">gM_COMPATIBLE</span></a></span></span><span>     </span><span class="hs-glyph">=</span><span>  </span><span class="annot"><span class="annottext">UINT
</span><span class="hs-number">1</span></span><span>
</span><span id="line-285"></span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#gM_ADVANCED"><span class="hs-identifier hs-type">gM_ADVANCED</span></a></span><span>       </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#GraphicsMode"><span class="hs-identifier hs-type">GraphicsMode</span></a></span><span>
</span><span id="line-286"></span><span id="gM_ADVANCED"><span class="annot"><span class="annottext">gM_ADVANCED :: UINT
</span><a href="Graphics.Win32.GDI.Types.html#gM_ADVANCED"><span class="hs-identifier hs-var hs-var">gM_ADVANCED</span></a></span></span><span>       </span><span class="hs-glyph">=</span><span>  </span><span class="annot"><span class="annottext">UINT
</span><span class="hs-number">2</span></span><span>
</span><span id="line-287"></span><span>
</span><span id="line-288"></span><span class="hs-pragma">{-# LINE 287 &quot;libraries\\Win32\\Graphics\\Win32\\GDI\\Types.hsc&quot; #-}</span><span>
</span><span id="line-287"></span><span>
</span><span id="line-288"></span><span class="hs-comment">----------------------------------------------------------------</span><span>
</span><span id="line-289"></span><span>
</span><span id="line-290"></span><span class="hs-keyword">type</span><span> </span><span id="BackgroundMode"><span class="annot"><a href="Graphics.Win32.GDI.Types.html#BackgroundMode"><span class="hs-identifier hs-var">BackgroundMode</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><a href="System.Win32.Types.html#INT"><span class="hs-identifier hs-type">INT</span></a></span><span>
</span><span id="line-291"></span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#tRANSPARENT"><span class="hs-identifier hs-type">tRANSPARENT</span></a></span><span>   </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#BackgroundMode"><span class="hs-identifier hs-type">BackgroundMode</span></a></span><span>
</span><span id="line-292"></span><span id="tRANSPARENT"><span class="annot"><span class="annottext">tRANSPARENT :: RegionType
</span><a href="Graphics.Win32.GDI.Types.html#tRANSPARENT"><span class="hs-identifier hs-var hs-var">tRANSPARENT</span></a></span></span><span>   </span><span class="hs-glyph">=</span><span>  </span><span class="annot"><span class="annottext">RegionType
</span><span class="hs-number">1</span></span><span>
</span><span id="line-293"></span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#oPAQUE"><span class="hs-identifier hs-type">oPAQUE</span></a></span><span>        </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#BackgroundMode"><span class="hs-identifier hs-type">BackgroundMode</span></a></span><span>
</span><span id="line-294"></span><span id="oPAQUE"><span class="annot"><span class="annottext">oPAQUE :: RegionType
</span><a href="Graphics.Win32.GDI.Types.html#oPAQUE"><span class="hs-identifier hs-var hs-var">oPAQUE</span></a></span></span><span>        </span><span class="hs-glyph">=</span><span>  </span><span class="annot"><span class="annottext">RegionType
</span><span class="hs-number">2</span></span><span>
</span><span id="line-295"></span><span>
</span><span id="line-296"></span><span class="hs-pragma">{-# LINE 295 &quot;libraries\\Win32\\Graphics\\Win32\\GDI\\Types.hsc&quot; #-}</span><span>
</span><span id="line-295"></span><span>
</span><span id="line-296"></span><span class="hs-comment">----------------------------------------------------------------</span><span>
</span><span id="line-297"></span><span>
</span><span id="line-298"></span><span class="hs-keyword">type</span><span> </span><span id="HatchStyle"><span class="annot"><a href="Graphics.Win32.GDI.Types.html#HatchStyle"><span class="hs-identifier hs-var">HatchStyle</span></a></span></span><span>   </span><span class="hs-glyph">=</span><span> </span><span class="annot"><a href="System.Win32.Types.html#INT"><span class="hs-identifier hs-type">INT</span></a></span><span>
</span><span id="line-299"></span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#hS_HORIZONTAL"><span class="hs-identifier hs-type">hS_HORIZONTAL</span></a></span><span>   </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#HatchStyle"><span class="hs-identifier hs-type">HatchStyle</span></a></span><span>
</span><span id="line-300"></span><span id="hS_HORIZONTAL"><span class="annot"><span class="annottext">hS_HORIZONTAL :: RegionType
</span><a href="Graphics.Win32.GDI.Types.html#hS_HORIZONTAL"><span class="hs-identifier hs-var hs-var">hS_HORIZONTAL</span></a></span></span><span>   </span><span class="hs-glyph">=</span><span>  </span><span class="annot"><span class="annottext">RegionType
</span><span class="hs-number">0</span></span><span>
</span><span id="line-301"></span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#hS_VERTICAL"><span class="hs-identifier hs-type">hS_VERTICAL</span></a></span><span>     </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#HatchStyle"><span class="hs-identifier hs-type">HatchStyle</span></a></span><span>
</span><span id="line-302"></span><span id="hS_VERTICAL"><span class="annot"><span class="annottext">hS_VERTICAL :: RegionType
</span><a href="Graphics.Win32.GDI.Types.html#hS_VERTICAL"><span class="hs-identifier hs-var hs-var">hS_VERTICAL</span></a></span></span><span>     </span><span class="hs-glyph">=</span><span>  </span><span class="annot"><span class="annottext">RegionType
</span><span class="hs-number">1</span></span><span>
</span><span id="line-303"></span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#hS_FDIAGONAL"><span class="hs-identifier hs-type">hS_FDIAGONAL</span></a></span><span>    </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#HatchStyle"><span class="hs-identifier hs-type">HatchStyle</span></a></span><span>
</span><span id="line-304"></span><span id="hS_FDIAGONAL"><span class="annot"><span class="annottext">hS_FDIAGONAL :: RegionType
</span><a href="Graphics.Win32.GDI.Types.html#hS_FDIAGONAL"><span class="hs-identifier hs-var hs-var">hS_FDIAGONAL</span></a></span></span><span>    </span><span class="hs-glyph">=</span><span>  </span><span class="annot"><span class="annottext">RegionType
</span><span class="hs-number">2</span></span><span>
</span><span id="line-305"></span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#hS_BDIAGONAL"><span class="hs-identifier hs-type">hS_BDIAGONAL</span></a></span><span>    </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#HatchStyle"><span class="hs-identifier hs-type">HatchStyle</span></a></span><span>
</span><span id="line-306"></span><span id="hS_BDIAGONAL"><span class="annot"><span class="annottext">hS_BDIAGONAL :: RegionType
</span><a href="Graphics.Win32.GDI.Types.html#hS_BDIAGONAL"><span class="hs-identifier hs-var hs-var">hS_BDIAGONAL</span></a></span></span><span>    </span><span class="hs-glyph">=</span><span>  </span><span class="annot"><span class="annottext">RegionType
</span><span class="hs-number">3</span></span><span>
</span><span id="line-307"></span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#hS_CROSS"><span class="hs-identifier hs-type">hS_CROSS</span></a></span><span>        </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#HatchStyle"><span class="hs-identifier hs-type">HatchStyle</span></a></span><span>
</span><span id="line-308"></span><span id="hS_CROSS"><span class="annot"><span class="annottext">hS_CROSS :: RegionType
</span><a href="Graphics.Win32.GDI.Types.html#hS_CROSS"><span class="hs-identifier hs-var hs-var">hS_CROSS</span></a></span></span><span>        </span><span class="hs-glyph">=</span><span>  </span><span class="annot"><span class="annottext">RegionType
</span><span class="hs-number">4</span></span><span>
</span><span id="line-309"></span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#hS_DIAGCROSS"><span class="hs-identifier hs-type">hS_DIAGCROSS</span></a></span><span>    </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#HatchStyle"><span class="hs-identifier hs-type">HatchStyle</span></a></span><span>
</span><span id="line-310"></span><span id="hS_DIAGCROSS"><span class="annot"><span class="annottext">hS_DIAGCROSS :: RegionType
</span><a href="Graphics.Win32.GDI.Types.html#hS_DIAGCROSS"><span class="hs-identifier hs-var hs-var">hS_DIAGCROSS</span></a></span></span><span>    </span><span class="hs-glyph">=</span><span>  </span><span class="annot"><span class="annottext">RegionType
</span><span class="hs-number">5</span></span><span>
</span><span id="line-311"></span><span>
</span><span id="line-312"></span><span id="bLACKONWHITE"><span class="hs-pragma">{-# LINE 307 &quot;libraries\\Win32\\Graphics\\Win32\\GDI\\Types.hsc&quot; #-}</span></span><span>
</span><span id="line-307"></span><span>
</span><span id="line-308"></span><span class="hs-comment">----------------------------------------------------------------</span><span>
</span><span id="line-309"></span><span>
</span><span id="line-310"></span><span class="hs-keyword">type</span><span> </span><span class="hs-identifier">StretchBltMode</span><span>    </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier">INT</span><span>
</span><span id="line-311"></span><span class="hs-identifier">bLACKONWHITE</span><span>         </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">StretchBltMode</span><span>
</span><span id="line-312"></span><span class="hs-identifier">bLACKONWHITE</span><span>         </span><span class="hs-glyph">=</span><span>  </span><span class="hs-number">1</span><span>
</span><span id="line-313"></span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#wHITEONBLACK"><span class="hs-identifier hs-type">wHITEONBLACK</span></a></span><span>         </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#StretchBltMode"><span class="hs-identifier hs-type">StretchBltMode</span></a></span><span>
</span><span id="line-314"></span><span id="wHITEONBLACK"><span class="annot"><span class="annottext">wHITEONBLACK :: RegionType
</span><a href="Graphics.Win32.GDI.Types.html#wHITEONBLACK"><span class="hs-identifier hs-var hs-var">wHITEONBLACK</span></a></span></span><span>         </span><span class="hs-glyph">=</span><span>  </span><span class="annot"><span class="annottext">RegionType
</span><span class="hs-number">2</span></span><span>
</span><span id="line-315"></span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#cOLORONCOLOR"><span class="hs-identifier hs-type">cOLORONCOLOR</span></a></span><span>         </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#StretchBltMode"><span class="hs-identifier hs-type">StretchBltMode</span></a></span><span>
</span><span id="line-316"></span><span id="cOLORONCOLOR"><span class="annot"><span class="annottext">cOLORONCOLOR :: RegionType
</span><a href="Graphics.Win32.GDI.Types.html#cOLORONCOLOR"><span class="hs-identifier hs-var hs-var">cOLORONCOLOR</span></a></span></span><span>         </span><span class="hs-glyph">=</span><span>  </span><span class="annot"><span class="annottext">RegionType
</span><span class="hs-number">3</span></span><span>
</span><span id="line-317"></span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#hALFTONE"><span class="hs-identifier hs-type">hALFTONE</span></a></span><span>             </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#StretchBltMode"><span class="hs-identifier hs-type">StretchBltMode</span></a></span><span>
</span><span id="line-318"></span><span id="hALFTONE"><span class="annot"><span class="annottext">hALFTONE :: RegionType
</span><a href="Graphics.Win32.GDI.Types.html#hALFTONE"><span class="hs-identifier hs-var hs-var">hALFTONE</span></a></span></span><span>             </span><span class="hs-glyph">=</span><span>  </span><span class="annot"><span class="annottext">RegionType
</span><span class="hs-number">4</span></span><span>
</span><span id="line-319"></span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#sTRETCH_ANDSCANS"><span class="hs-identifier hs-type">sTRETCH_ANDSCANS</span></a></span><span>     </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#StretchBltMode"><span class="hs-identifier hs-type">StretchBltMode</span></a></span><span>
</span><span id="line-320"></span><span id="sTRETCH_ANDSCANS"><span class="annot"><span class="annottext">sTRETCH_ANDSCANS :: RegionType
</span><a href="Graphics.Win32.GDI.Types.html#sTRETCH_ANDSCANS"><span class="hs-identifier hs-var hs-var">sTRETCH_ANDSCANS</span></a></span></span><span>     </span><span class="hs-glyph">=</span><span>  </span><span class="annot"><span class="annottext">RegionType
</span><span class="hs-number">1</span></span><span>
</span><span id="line-321"></span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#sTRETCH_ORSCANS"><span class="hs-identifier hs-type">sTRETCH_ORSCANS</span></a></span><span>      </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#StretchBltMode"><span class="hs-identifier hs-type">StretchBltMode</span></a></span><span>
</span><span id="line-322"></span><span id="sTRETCH_ORSCANS"><span class="annot"><span class="annottext">sTRETCH_ORSCANS :: RegionType
</span><a href="Graphics.Win32.GDI.Types.html#sTRETCH_ORSCANS"><span class="hs-identifier hs-var hs-var">sTRETCH_ORSCANS</span></a></span></span><span>      </span><span class="hs-glyph">=</span><span>  </span><span class="annot"><span class="annottext">RegionType
</span><span class="hs-number">2</span></span><span>
</span><span id="line-323"></span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#sTRETCH_DELETESCANS"><span class="hs-identifier hs-type">sTRETCH_DELETESCANS</span></a></span><span>  </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#StretchBltMode"><span class="hs-identifier hs-type">StretchBltMode</span></a></span><span>
</span><span id="line-324"></span><span id="sTRETCH_DELETESCANS"><span class="annot"><span class="annottext">sTRETCH_DELETESCANS :: RegionType
</span><a href="Graphics.Win32.GDI.Types.html#sTRETCH_DELETESCANS"><span class="hs-identifier hs-var hs-var">sTRETCH_DELETESCANS</span></a></span></span><span>  </span><span class="hs-glyph">=</span><span>  </span><span class="annot"><span class="annottext">RegionType
</span><span class="hs-number">3</span></span><span>
</span><span id="line-325"></span><span>
</span><span id="line-326"></span><span class="hs-pragma">{-# LINE 320 &quot;libraries\\Win32\\Graphics\\Win32\\GDI\\Types.hsc&quot; #-}</span><span>
</span><span id="line-320"></span><span>
</span><span id="line-321"></span><span class="hs-comment">----------------------------------------------------------------</span><span>
</span><span id="line-322"></span><span>
</span><span id="line-323"></span><span class="hs-keyword">type</span><span> </span><span class="hs-identifier">TextAlignment</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier">UINT</span><span>
</span><span id="line-324"></span><span class="hs-identifier">tA_NOUPDATECP</span><span>    </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">TextAlignment</span><span>
</span><span id="line-325"></span><span class="hs-identifier">tA_NOUPDATECP</span><span>    </span><span class="hs-glyph">=</span><span>  </span><span class="hs-number">0</span><span>
</span><span id="line-326"></span><span class="hs-identifier">tA_UPDATECP</span><span>      </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">TextAlignment</span><span>
</span><span id="line-327"></span><span id="tA_UPDATECP"><span class="annot"><span class="annottext">tA_UPDATECP :: UINT
</span><a href="Graphics.Win32.GDI.Types.html#tA_UPDATECP"><span class="hs-identifier hs-var hs-var">tA_UPDATECP</span></a></span></span><span>      </span><span class="hs-glyph">=</span><span>  </span><span class="annot"><span class="annottext">UINT
</span><span class="hs-number">1</span></span><span>
</span><span id="line-328"></span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#tA_LEFT"><span class="hs-identifier hs-type">tA_LEFT</span></a></span><span>          </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#TextAlignment"><span class="hs-identifier hs-type">TextAlignment</span></a></span><span>
</span><span id="line-329"></span><span id="tA_LEFT"><span class="annot"><span class="annottext">tA_LEFT :: UINT
</span><a href="Graphics.Win32.GDI.Types.html#tA_LEFT"><span class="hs-identifier hs-var hs-var">tA_LEFT</span></a></span></span><span>          </span><span class="hs-glyph">=</span><span>  </span><span class="annot"><span class="annottext">UINT
</span><span class="hs-number">0</span></span><span>
</span><span id="line-330"></span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#tA_RIGHT"><span class="hs-identifier hs-type">tA_RIGHT</span></a></span><span>         </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#TextAlignment"><span class="hs-identifier hs-type">TextAlignment</span></a></span><span>
</span><span id="line-331"></span><span id="tA_RIGHT"><span class="annot"><span class="annottext">tA_RIGHT :: UINT
</span><a href="Graphics.Win32.GDI.Types.html#tA_RIGHT"><span class="hs-identifier hs-var hs-var">tA_RIGHT</span></a></span></span><span>         </span><span class="hs-glyph">=</span><span>  </span><span class="annot"><span class="annottext">UINT
</span><span class="hs-number">2</span></span><span>
</span><span id="line-332"></span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#tA_CENTER"><span class="hs-identifier hs-type">tA_CENTER</span></a></span><span>        </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#TextAlignment"><span class="hs-identifier hs-type">TextAlignment</span></a></span><span>
</span><span id="line-333"></span><span id="tA_CENTER"><span class="annot"><span class="annottext">tA_CENTER :: UINT
</span><a href="Graphics.Win32.GDI.Types.html#tA_CENTER"><span class="hs-identifier hs-var hs-var">tA_CENTER</span></a></span></span><span>        </span><span class="hs-glyph">=</span><span>  </span><span class="annot"><span class="annottext">UINT
</span><span class="hs-number">6</span></span><span>
</span><span id="line-334"></span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#tA_TOP"><span class="hs-identifier hs-type">tA_TOP</span></a></span><span>           </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#TextAlignment"><span class="hs-identifier hs-type">TextAlignment</span></a></span><span>
</span><span id="line-335"></span><span id="tA_TOP"><span class="annot"><span class="annottext">tA_TOP :: UINT
</span><a href="Graphics.Win32.GDI.Types.html#tA_TOP"><span class="hs-identifier hs-var hs-var">tA_TOP</span></a></span></span><span>           </span><span class="hs-glyph">=</span><span>  </span><span class="annot"><span class="annottext">UINT
</span><span class="hs-number">0</span></span><span>
</span><span id="line-336"></span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#tA_BOTTOM"><span class="hs-identifier hs-type">tA_BOTTOM</span></a></span><span>        </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#TextAlignment"><span class="hs-identifier hs-type">TextAlignment</span></a></span><span>
</span><span id="line-337"></span><span id="tA_BOTTOM"><span class="annot"><span class="annottext">tA_BOTTOM :: UINT
</span><a href="Graphics.Win32.GDI.Types.html#tA_BOTTOM"><span class="hs-identifier hs-var hs-var">tA_BOTTOM</span></a></span></span><span>        </span><span class="hs-glyph">=</span><span>  </span><span class="annot"><span class="annottext">UINT
</span><span class="hs-number">8</span></span><span>
</span><span id="line-338"></span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#tA_BASELINE"><span class="hs-identifier hs-type">tA_BASELINE</span></a></span><span>      </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">TextAlignment</span><span>
</span><span id="line-339"></span><span id="tA_BASELINE"><span class="annot"><span class="annottext">tA_BASELINE :: UINT
</span><a href="Graphics.Win32.GDI.Types.html#tA_BASELINE"><span class="hs-identifier hs-var hs-var">tA_BASELINE</span></a></span></span><span>      </span><span class="hs-glyph">=</span><span>  </span><span class="annot"><span class="annottext">UINT
</span><span class="hs-number">24</span></span><span>
</span><span id="line-340"></span><span>
</span><span id="line-341"></span><span id="rGN_OR"></span><span class="hs-pragma">{-# LINE 334 &quot;libraries\\Win32\\Graphics\\Win32\\GDI\\Types.hsc&quot; #-}</span><span>
</span><span id="line-334"></span><span>
</span><span id="line-335"></span><span class="hs-comment">----------------------------------------------------------------</span><span>
</span><span id="line-336"></span><span>
</span><span id="line-337"></span><span class="hs-keyword">type</span><span> </span><span class="hs-identifier">ClippingMode</span><span>  </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier">INT</span><span>
</span><span id="line-338"></span><span class="hs-identifier">rGN_AND</span><span>          </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">ClippingMode</span><span>
</span><span id="line-339"></span><span class="hs-identifier">rGN_AND</span><span>          </span><span class="hs-glyph">=</span><span>  </span><span class="hs-number">1</span><span>
</span><span id="line-340"></span><span class="hs-identifier">rGN_OR</span><span>           </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">ClippingMode</span><span>
</span><span id="line-341"></span><span class="hs-identifier">rGN_OR</span><span>           </span><span class="hs-glyph">=</span><span>  </span><span class="hs-number">2</span><span>
</span><span id="line-342"></span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#rGN_XOR"><span class="hs-identifier hs-type">rGN_XOR</span></a></span><span>          </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#ClippingMode"><span class="hs-identifier hs-type">ClippingMode</span></a></span><span>
</span><span id="line-343"></span><span id="rGN_XOR"><span class="annot"><span class="annottext">rGN_XOR :: RegionType
</span><a href="Graphics.Win32.GDI.Types.html#rGN_XOR"><span class="hs-identifier hs-var hs-var">rGN_XOR</span></a></span></span><span>          </span><span class="hs-glyph">=</span><span>  </span><span class="annot"><span class="annottext">RegionType
</span><span class="hs-number">3</span></span><span>
</span><span id="line-344"></span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#rGN_DIFF"><span class="hs-identifier hs-type">rGN_DIFF</span></a></span><span>         </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#ClippingMode"><span class="hs-identifier hs-type">ClippingMode</span></a></span><span>
</span><span id="line-345"></span><span id="rGN_DIFF"><span class="annot"><span class="annottext">rGN_DIFF :: RegionType
</span><a href="Graphics.Win32.GDI.Types.html#rGN_DIFF"><span class="hs-identifier hs-var hs-var">rGN_DIFF</span></a></span></span><span>         </span><span class="hs-glyph">=</span><span>  </span><span class="annot"><span class="annottext">RegionType
</span><span class="hs-number">4</span></span><span>
</span><span id="line-346"></span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#rGN_COPY"><span class="hs-identifier hs-type">rGN_COPY</span></a></span><span>         </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#ClippingMode"><span class="hs-identifier hs-type">ClippingMode</span></a></span><span>
</span><span id="line-347"></span><span id="rGN_COPY"><span class="annot"><span class="annottext">rGN_COPY :: RegionType
</span><a href="Graphics.Win32.GDI.Types.html#rGN_COPY"><span class="hs-identifier hs-var hs-var">rGN_COPY</span></a></span></span><span>         </span><span class="hs-glyph">=</span><span>  </span><span class="annot"><span class="annottext">RegionType
</span><span class="hs-number">5</span></span><span>
</span><span id="line-348"></span><span>
</span><span id="line-349"></span><span class="hs-pragma">{-# LINE 345 &quot;libraries\\Win32\\Graphics\\Win32\\GDI\\Types.hsc&quot; #-}</span><span>
</span><span id="line-345"></span><span>
</span><span id="line-346"></span><span class="hs-comment">----------------------------------------------------------------</span><span>
</span><span id="line-347"></span><span>
</span><span id="line-348"></span><span class="hs-keyword">type</span><span> </span><span class="hs-identifier">RegionType</span><span>    </span><span class="hs-glyph">=</span><span> </span><span class="hs-identifier">INT</span><span>
</span><span id="line-349"></span><span class="hs-identifier">eRROR</span><span>            </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">RegionType</span><span>
</span><span id="line-350"></span><span id="eRROR"><span class="annot"><span class="annottext">eRROR :: RegionType
</span><a href="Graphics.Win32.GDI.Types.html#eRROR"><span class="hs-identifier hs-var hs-var">eRROR</span></a></span></span><span>            </span><span class="hs-glyph">=</span><span>  </span><span class="annot"><span class="annottext">RegionType
</span><span class="hs-number">0</span></span><span>
</span><span id="line-351"></span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#nULLREGION"><span class="hs-identifier hs-type">nULLREGION</span></a></span><span>       </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#RegionType"><span class="hs-identifier hs-type">RegionType</span></a></span><span>
</span><span id="line-352"></span><span id="nULLREGION"><span class="annot"><span class="annottext">nULLREGION :: RegionType
</span><a href="Graphics.Win32.GDI.Types.html#nULLREGION"><span class="hs-identifier hs-var hs-var">nULLREGION</span></a></span></span><span>       </span><span class="hs-glyph">=</span><span>  </span><span class="annot"><span class="annottext">RegionType
</span><span class="hs-number">1</span></span><span>
</span><span id="line-353"></span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#sIMPLEREGION"><span class="hs-identifier hs-type">sIMPLEREGION</span></a></span><span>     </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#RegionType"><span class="hs-identifier hs-type">RegionType</span></a></span><span>
</span><span id="line-354"></span><span id="sIMPLEREGION"><span class="annot"><span class="annottext">sIMPLEREGION :: RegionType
</span><a href="Graphics.Win32.GDI.Types.html#sIMPLEREGION"><span class="hs-identifier hs-var hs-var">sIMPLEREGION</span></a></span></span><span>     </span><span class="hs-glyph">=</span><span>  </span><span class="annot"><span class="annottext">RegionType
</span><span class="hs-number">2</span></span><span>
</span><span id="line-355"></span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#cOMPLEXREGION"><span class="hs-identifier hs-type">cOMPLEXREGION</span></a></span><span>    </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#RegionType"><span class="hs-identifier hs-type">RegionType</span></a></span><span>
</span><span id="line-356"></span><span id="local-6989586621679106194"><span id="cOMPLEXREGION"><span class="annot"><span class="annottext">cOMPLEXREGION :: RegionType
</span><a href="Graphics.Win32.GDI.Types.html#cOMPLEXREGION"><span class="hs-identifier hs-var hs-var">cOMPLEXREGION</span></a></span></span><span>    </span><span class="hs-glyph">=</span><span>  </span><span class="annot"><span class="annottext">RegionType
</span><span class="hs-number">3</span></span></span><span>
</span><span id="line-357"></span><span>
</span><span id="line-358"></span><span class="hs-pragma">{-# LINE 355 &quot;libraries\\Win32\\Graphics\\Win32\\GDI\\Types.hsc&quot; #-}</span><span>
</span><span id="line-355"></span><span>
</span><span id="line-356"></span><span class="hs-identifier">gDI_ERROR</span><span>  </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">Num</span><span> </span><span class="hs-identifier">a</span><span> </span><span class="hs-glyph">=&gt;</span><span> </span><span class="hs-identifier">a</span><span>
</span><span id="line-357"></span><span class="hs-identifier">gDI_ERROR</span><span>   </span><span class="hs-glyph">=</span><span> </span><span class="hs-number">4294967295</span><span>
</span><span id="line-358"></span><span class="hs-pragma">{-# LINE 358 &quot;libraries\\Win32\\Graphics\\Win32\\GDI\\Types.hsc&quot; #-}</span><span>
</span><span id="line-358"></span><span>
</span><span id="line-359"></span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#cLR_INVALID"><span class="hs-identifier hs-type">cLR_INVALID</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#COLORREF"><span class="hs-identifier hs-type">COLORREF</span></a></span><span>
</span><span id="line-360"></span><span id="cLR_INVALID"><span class="annot"><span class="annottext">cLR_INVALID :: UINT
</span><a href="Graphics.Win32.GDI.Types.html#cLR_INVALID"><span class="hs-identifier hs-var hs-var">cLR_INVALID</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">UINT
</span><span class="hs-number">4294967295</span></span><span>
</span><span id="line-361"></span><span class="hs-pragma">{-# LINE 361 &quot;libraries\\Win32\\Graphics\\Win32\\GDI\\Types.hsc&quot; #-}</span><span>
</span><span id="line-361"></span><span>
</span><span id="line-362"></span><span class="hs-comment">----------------------------------------------------------------</span><span>
</span><span id="line-363"></span><span>
</span><span id="line-364"></span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#oBJ_PEN"><span class="hs-identifier hs-type">oBJ_PEN</span></a></span><span>          </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="System.Win32.Types.html#UINT"><span class="hs-identifier hs-type">UINT</span></a></span><span>
</span><span id="line-365"></span><span id="oBJ_PEN"><span class="annot"><span class="annottext">oBJ_PEN :: UINT
</span><a href="Graphics.Win32.GDI.Types.html#oBJ_PEN"><span class="hs-identifier hs-var hs-var">oBJ_PEN</span></a></span></span><span>          </span><span class="hs-glyph">=</span><span>  </span><span class="annot"><span class="annottext">UINT
</span><span class="hs-number">1</span></span><span>
</span><span id="line-366"></span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#oBJ_BRUSH"><span class="hs-identifier hs-type">oBJ_BRUSH</span></a></span><span>        </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="System.Win32.Types.html#UINT"><span class="hs-identifier hs-type">UINT</span></a></span><span>
</span><span id="line-367"></span><span id="oBJ_BRUSH"><span class="annot"><span class="annottext">oBJ_BRUSH :: UINT
</span><a href="Graphics.Win32.GDI.Types.html#oBJ_BRUSH"><span class="hs-identifier hs-var hs-var">oBJ_BRUSH</span></a></span></span><span>        </span><span class="hs-glyph">=</span><span>  </span><span class="annot"><span class="annottext">UINT
</span><span class="hs-number">2</span></span><span>
</span><span id="line-368"></span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#oBJ_DC"><span class="hs-identifier hs-type">oBJ_DC</span></a></span><span>           </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="System.Win32.Types.html#UINT"><span class="hs-identifier hs-type">UINT</span></a></span><span>
</span><span id="line-369"></span><span id="oBJ_DC"><span class="annot"><span class="annottext">oBJ_DC :: UINT
</span><a href="Graphics.Win32.GDI.Types.html#oBJ_DC"><span class="hs-identifier hs-var hs-var">oBJ_DC</span></a></span></span><span>           </span><span class="hs-glyph">=</span><span>  </span><span class="annot"><span class="annottext">UINT
</span><span class="hs-number">3</span></span><span>
</span><span id="line-370"></span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#oBJ_METADC"><span class="hs-identifier hs-type">oBJ_METADC</span></a></span><span>       </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="System.Win32.Types.html#UINT"><span class="hs-identifier hs-type">UINT</span></a></span><span>
</span><span id="line-371"></span><span id="oBJ_METADC"><span class="annot"><span class="annottext">oBJ_METADC :: UINT
</span><a href="Graphics.Win32.GDI.Types.html#oBJ_METADC"><span class="hs-identifier hs-var hs-var">oBJ_METADC</span></a></span></span><span>       </span><span class="hs-glyph">=</span><span>  </span><span class="annot"><span class="annottext">UINT
</span><span class="hs-number">4</span></span><span>
</span><span id="line-372"></span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#oBJ_PAL"><span class="hs-identifier hs-type">oBJ_PAL</span></a></span><span>          </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="System.Win32.Types.html#UINT"><span class="hs-identifier hs-type">UINT</span></a></span><span>
</span><span id="line-373"></span><span id="oBJ_PAL"><span class="annot"><span class="annottext">oBJ_PAL :: UINT
</span><a href="Graphics.Win32.GDI.Types.html#oBJ_PAL"><span class="hs-identifier hs-var hs-var">oBJ_PAL</span></a></span></span><span>          </span><span class="hs-glyph">=</span><span>  </span><span class="annot"><span class="annottext">UINT
</span><span class="hs-number">5</span></span><span>
</span><span id="line-374"></span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#oBJ_FONT"><span class="hs-identifier hs-type">oBJ_FONT</span></a></span><span>         </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="System.Win32.Types.html#UINT"><span class="hs-identifier hs-type">UINT</span></a></span><span>
</span><span id="line-375"></span><span id="oBJ_FONT"><span class="annot"><span class="annottext">oBJ_FONT :: UINT
</span><a href="Graphics.Win32.GDI.Types.html#oBJ_FONT"><span class="hs-identifier hs-var hs-var">oBJ_FONT</span></a></span></span><span>         </span><span class="hs-glyph">=</span><span>  </span><span class="annot"><span class="annottext">UINT
</span><span class="hs-number">6</span></span><span>
</span><span id="line-376"></span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#oBJ_BITMAP"><span class="hs-identifier hs-type">oBJ_BITMAP</span></a></span><span>       </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="System.Win32.Types.html#UINT"><span class="hs-identifier hs-type">UINT</span></a></span><span>
</span><span id="line-377"></span><span id="oBJ_BITMAP"><span class="annot"><span class="annottext">oBJ_BITMAP :: UINT
</span><a href="Graphics.Win32.GDI.Types.html#oBJ_BITMAP"><span class="hs-identifier hs-var hs-var">oBJ_BITMAP</span></a></span></span><span>       </span><span class="hs-glyph">=</span><span>  </span><span class="annot"><span class="annottext">UINT
</span><span class="hs-number">7</span></span><span>
</span><span id="line-378"></span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#oBJ_REGION"><span class="hs-identifier hs-type">oBJ_REGION</span></a></span><span>       </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="System.Win32.Types.html#UINT"><span class="hs-identifier hs-type">UINT</span></a></span><span>
</span><span id="line-379"></span><span id="oBJ_REGION"><span class="annot"><span class="annottext">oBJ_REGION :: UINT
</span><a href="Graphics.Win32.GDI.Types.html#oBJ_REGION"><span class="hs-identifier hs-var hs-var">oBJ_REGION</span></a></span></span><span>       </span><span class="hs-glyph">=</span><span>  </span><span class="annot"><span class="annottext">UINT
</span><span class="hs-number">8</span></span><span>
</span><span id="line-380"></span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#oBJ_METAFILE"><span class="hs-identifier hs-type">oBJ_METAFILE</span></a></span><span>     </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="System.Win32.Types.html#UINT"><span class="hs-identifier hs-type">UINT</span></a></span><span>
</span><span id="line-381"></span><span id="oBJ_METAFILE"><span class="annot"><span class="annottext">oBJ_METAFILE :: UINT
</span><a href="Graphics.Win32.GDI.Types.html#oBJ_METAFILE"><span class="hs-identifier hs-var hs-var">oBJ_METAFILE</span></a></span></span><span>     </span><span class="hs-glyph">=</span><span>  </span><span class="annot"><span class="annottext">UINT
</span><span class="hs-number">9</span></span><span>
</span><span id="line-382"></span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#oBJ_MEMDC"><span class="hs-identifier hs-type">oBJ_MEMDC</span></a></span><span>        </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="System.Win32.Types.html#UINT"><span class="hs-identifier hs-type">UINT</span></a></span><span>
</span><span id="line-383"></span><span id="oBJ_MEMDC"><span class="annot"><span class="annottext">oBJ_MEMDC :: UINT
</span><a href="Graphics.Win32.GDI.Types.html#oBJ_MEMDC"><span class="hs-identifier hs-var hs-var">oBJ_MEMDC</span></a></span></span><span>        </span><span class="hs-glyph">=</span><span>  </span><span class="annot"><span class="annottext">UINT
</span><span class="hs-number">10</span></span><span>
</span><span id="line-384"></span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#oBJ_EXTPEN"><span class="hs-identifier hs-type">oBJ_EXTPEN</span></a></span><span>       </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="System.Win32.Types.html#UINT"><span class="hs-identifier hs-type">UINT</span></a></span><span>
</span><span id="line-385"></span><span id="oBJ_EXTPEN"><span class="annot"><span class="annottext">oBJ_EXTPEN :: UINT
</span><a href="Graphics.Win32.GDI.Types.html#oBJ_EXTPEN"><span class="hs-identifier hs-var hs-var">oBJ_EXTPEN</span></a></span></span><span>       </span><span class="hs-glyph">=</span><span>  </span><span class="annot"><span class="annottext">UINT
</span><span class="hs-number">11</span></span><span>
</span><span id="line-386"></span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#oBJ_ENHMETADC"><span class="hs-identifier hs-type">oBJ_ENHMETADC</span></a></span><span>    </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="System.Win32.Types.html#UINT"><span class="hs-identifier hs-type">UINT</span></a></span><span>
</span><span id="line-387"></span><span id="oBJ_ENHMETADC"><span class="annot"><span class="annottext">oBJ_ENHMETADC :: UINT
</span><a href="Graphics.Win32.GDI.Types.html#oBJ_ENHMETADC"><span class="hs-identifier hs-var hs-var">oBJ_ENHMETADC</span></a></span></span><span>    </span><span class="hs-glyph">=</span><span>  </span><span class="annot"><span class="annottext">UINT
</span><span class="hs-number">12</span></span><span>
</span><span id="line-388"></span><span class="annot"><a href="Graphics.Win32.GDI.Types.html#oBJ_ENHMETAFILE"><span class="hs-identifier hs-type">oBJ_ENHMETAFILE</span></a></span><span>  </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="System.Win32.Types.html#UINT"><span class="hs-identifier hs-type">UINT</span></a></span><span>
</span><span id="line-389"></span><span id="oBJ_ENHMETAFILE"><span class="annot"><span class="annottext">oBJ_ENHMETAFILE :: UINT
</span><a href="Graphics.Win32.GDI.Types.html#oBJ_ENHMETAFILE"><span class="hs-identifier hs-var hs-var">oBJ_ENHMETAFILE</span></a></span></span><span>  </span><span class="hs-glyph">=</span><span>  </span><span class="annot"><span class="annottext">UINT
</span><span class="hs-number">13</span></span><span>
</span><span id="line-390"></span><span>
</span><span id="line-391"></span><span class="hs-pragma">{-# LINE 379 &quot;libraries\\Win32\\Graphics\\Win32\\GDI\\Types.hsc&quot; #-}</span><span>
</span><span id="line-379"></span><span>
</span><span id="line-380"></span><span class="hs-comment">----------------------------------------------------------------</span><span>
</span><span id="line-381"></span><span class="hs-comment">-- Miscellaneous primitives</span><span>
</span><span id="line-382"></span><span class="hs-comment">----------------------------------------------------------------</span><span>
</span><span id="line-383"></span><span>
</span><span id="line-384"></span><span class="hs-comment">-- Can't pass structs with current FFI, so use C wrappers</span><span>
</span><span id="line-385"></span><span>
</span><span id="line-386"></span><span class="hs-keyword">foreign</span><span> </span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">ccall</span><span> </span><span class="hs-keyword">unsafe</span><span> </span><span class="hs-string">&quot;HsGDI.h&quot;</span><span>
</span><span id="line-387"></span><span>  </span><span class="hs-identifier">prim_ChildWindowFromPoint</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">HWND</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">Ptr</span><span> </span><span class="hs-identifier">POINT</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">IO</span><span> </span><span class="hs-identifier">HWND</span><span>
</span><span id="line-388"></span><span class="hs-keyword">foreign</span><span> </span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">ccall</span><span> </span><span class="hs-keyword">unsafe</span><span> </span><span class="hs-string">&quot;HsGDI.h&quot;</span><span>
</span><span id="line-389"></span><span>  </span><span class="hs-identifier">prim_ChildWindowFromPointEx</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">HWND</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">Ptr</span><span> </span><span class="hs-identifier">POINT</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">DWORD</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">IO</span><span> </span><span class="hs-identifier">HWND</span><span>
</span><span id="line-390"></span><span class="hs-keyword">foreign</span><span> </span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">ccall</span><span> </span><span class="hs-keyword">unsafe</span><span> </span><span class="hs-string">&quot;HsGDI.h&quot;</span><span>
</span><span id="line-391"></span><span>  </span><span class="hs-identifier">prim_MenuItemFromPoint</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">HWND</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">HMENU</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">Ptr</span><span> </span><span class="hs-identifier">POINT</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">IO</span><span> </span><span class="hs-identifier">UINT</span><span>
</span><span id="line-392"></span><span>
</span><span id="line-393"></span><span class="hs-comment">----------------------------------------------------------------</span><span>
</span><span id="line-394"></span><span class="hs-comment">-- End</span><span>
</span><span id="line-395"></span><span class="hs-comment">----------------------------------------------------------------</span><span>
</span><span id="line-396"></span></pre></body></html>